Makro: Søg og erstat i dokument - både i tekst, sidehoved og sidefod

Hej med Jer,

Jeg har et problem med en makro, som skal søg og erstat i et dokument (i tekst, sidefod og sidehoved).

Den, som jeg har oprettet søger kun i teksten.

Dim A
    A = Txtfirma.Value

If A <> "" Then
           
        With Selection.Find
        .Text = "[Selskabets navn]"
        .Replacement.Text = A

    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    ActiveWindow.ActivePane.VerticalPercentScrolled = 0

End If


Jeg har haft lavet en makro, som søger i sidehoved, men så søger den kun i sidehoved - og kun på første side.

Det drejer sig om ca. 6-7 sider, hvor den skal lave søg og erstat på 10-15 ord (tekst, sidehoved, sidefod).

Er det muligt at lave en makro som søger i ALT?

På forhånd tak.

Hilsen,
Anders