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
