Find overskrifter

macro indspiller man er vba editor du arbejder i eller er det en macro du er ved at inspille lige maget du indspiller en macro i word der finder overskriften og så går du vba editor så kan du når du klikker på rediger se hvad den har gjort

Her er en kodestump:

    Selection.GoTo What:=wdGoToHeading, Which:=wdGoToFirst, Count:=1, Name:=""

Hvis du vil vælge alle "Overskrift 1"er så er det en lidt anden snak *S*

Glem lige min kode - den går til den første overskrift - ligegyldig  hvilket nummer den er :-(

Du kunne også bruge denne metode, der kun viser alle "Overskrift 1" i dokumentet:

With ActiveDocument.ActiveWindow.View
    .Type = wdOutlineView
    .ShowHeading 1
End With

Jeg vil gerne finde alle "overskrift 1" og gøre dem fede.
(og nej jeg kan ikke bare lave "overskrift 1" under typografi, Det skal laves i en marko).
Smækker gere flere point hvis det er nødvendigt.

Her er hele koden. Den er optaget via Words makro optager, hvor man får alle alternativer med - derfor er den så lang. Det giver dog den fordel at du kan ændre på flere "ting", hvis du ønsker det *S*

    With ActiveDocument.Styles("Overskrift 1").Font
        .Name = "Arial"
        .Size = 16
        .Bold = False
        .Italic = True
        .Underline = wdUnderlineNone
        .UnderlineColor = wdColorAutomatic
        .StrikeThrough = False
        .DoubleStrikeThrough = False
        .Outline = False
        .Emboss = False
        .Shadow = False
        .Hidden = False
        .SmallCaps = False
        .AllCaps = False
        .Color = wdColorAutomatic
        .Engrave = False
        .Superscript = False
        .Subscript = False
        .Scaling = 100
        .Kerning = 16
        .Animation = wdAnimationNone
        .SizeBi = 16
        .NameBi = "Times New Roman"
        .BoldBi = True
        .ItalicBi = False
    End With