Problemer med Macro i word

Jeg tror ikke det er en fejl du har lavet, men word der bugger selv. Har du gennemført Office update, ellers prøv det. Du finder siden for office update når du går ind på siden for windows update, der er et faneblad du skal klikke på. Hvis du har mulighed for det, er det altid en god ide at lave en backup inden du updater

Må vi se hele makroen - eller i det mindste den WITH sætning som linien indgår i?

Du kan også sende dokumentet du tester på til mig rvejemad@csc.com, så kikker jeg nærmer på det hele *S*

Herefter følger min makro. Hvis jeg sætter et "'" ved den linie som laver fejlen kører min makro uden problemer. Er den linie vigtig så jeg skal have den med?

Sub Macro1()
'
' Macro1 Macro
' Macro recorded 15. januar 2002 by DKMSP
'
    NormalTemplate.AutoTextEntries("Fil- og stinavn").Insert Where:= _
    Selection.Range
    Selection.TypeText Text:=" "
    NormalTemplate.AutoTextEntries("Forfatter, Sidenr., Dato").Insert Where:= _
        Selection.Range
End Sub
Sub Macro2()
'
' Macro2 Macro
' Macro recorded 15. januar 2002 by DKMSP
'
    CommandBars("Standard").Controls.Add Type:=msoControlButton, ID:=2205 _
        , Before:=21, Parameter:="Author, Page #, Date"
    NormalTemplate.AutoTextEntries("Author, Page #, Date").Insert Where:= _
        Selection.Range
    NormalTemplate.AutoTextEntries("Author, Page #, Date").Insert Where:= _
        Selection.Range
    NormalTemplate.AutoTextEntries("Author, Page #, Date").Insert Where:= _
        Selection.Range
    NormalTemplate.AutoTextEntries("Author, Page #, Date").Insert Where:= _
        Selection.Range
    Selection.HomeKey Unit:=wdLine, Extend:=wdExtend
    Selection.MoveUp Unit:=wdLine, Count:=4, Extend:=wdExtend
    Selection.Delete Unit:=wdCharacter, Count:=1
    NormalTemplate.AutoTextEntries("Author, Page #, Date").Insert Where:= _
        Selection.Range
    CommandBars("Standard").Controls(21).Delete
    CommandBars("Standard").Controls.Add Type:=msoControlButton, ID:=2205 _
        , Before:=21, Parameter:="Author, Page #, Date"
    CommandBars("Stop Recording").Visible = False
End Sub
Sub Sekretær()
'
' Sekretær Macro
' Macro recorded 10. november 2003 by MSP
'
    Selection.Font.Color = wdColorBlue
    With Selection.Borders(wdBorderLeft)
        .LineStyle = Options.DefaultBorderLineStyle
        .LineWidth = Options.DefaultBorderLineWidth
        .Color = Options.DefaultBorderColor
    End With
End Sub

Der kom vist lidt for meget med. Det skulle kun være:

Sub Sekretær()
'
' Sekretær Macro
' Macro recorded 10. november 2003 by MSP
'
    Selection.Font.Color = wdColorBlue
    With Selection.Borders(wdBorderLeft)
        .LineStyle = Options.DefaultBorderLineStyle
        .LineWidth = Options.DefaultBorderLineWidth
        .Color = Options.DefaultBorderColor
    End With
End Sub

Du skal have linien med for at det virker. Jeg kan ikke få din makro til at fejle (og den ser også rigtig ud), så... hmmm

Jeg vil lige tilføje, at hos mig virker den upåklageligt - også uden den pågældende linie. Den fortæller jo også bare at din linie skal være defauult tykkelse.

Faktisk er det tilstrækkeligt til at opnår det, du ønsker:

    Selection.Font.Color = wdColorBlue
    Selection.Borders(wdBorderLeft).LineStyle = Options.DefaultBorderLineStyle

Men kun hvis du markerer hele afsnit. Er det kun en del af et afsnit sætter den en ramme omkring hele markeringen.

Ja - lad os være lavpraktiske - slet linien - den er som jkrons skriver, ikke nødvendig.

sejrskilde-> Virkede det? Eller får du stadig fejl?

sejrskilde-> Virkede det? Eller får du stadig fejl?

sejrskilde-> Virkede det? Eller får du stadig fejl?

rvm-> Åbenbart er problemet så stort at al tiden går med at løse det :-)

Gider du lige lukke dette spørgsmål - eller vende tilbage med info om, hvorfo9r løsningen evt. ikke virker?