02. januar 2003 - 11:19
Der er
1 løsning
Tekstsøgning i sidehoved
Hej
Jeg har et word dokument, hvor jeg skal have udskiftet noget ord vha. et script.
Følgende virker fint i "brødteksten", men i sidehoved og fod udskifter den ikke. Hvorfor????
Dim objWordApp
Set objWordApp = CreateObject( "Word.Application")
objWordApp.Visible = True
objWordApp.Documents.Open source
objWordApp.Selection.Find.Execute "<findes>", true, false, false, false, false, true, wdFindContinue, false, "<erstattes>", 2
Håber der er nogen der kan hjælpe.
Slettet bruger
02. januar 2003 - 16:41
#1
Når denne makro køres, virker det både i brødtekst og i sidehoved. Hvis du kalder word fra et andet program, kan du måske kalde en makro som nedennævnte i stedet?
Sub Macro4()
'
' Macro4 Macro
' Macro recorded 1/2/2003 by Annelise Bruhn
'
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "Automatisér"
.Replacement.Text = "det virker"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub
