ich habe ein Problem beim Suchen und Ersetzen in Fusszeilen von Word. Leider wird beim Suchen und Ersetzen nur der Hauptteil des Dokumentes durchsucht. Das Makro wird von Excel aus ausgeführt, öffnet ein Worddokument, sucht und ersetzt bestimmte Werte und speichert das Worddokument anschließend.
Sub Word_Dokument_von_Excel()
Dim myWord As Object
Dim i As Integer
For i = 31 To 35
On Error Resume Next
Set myWord = GetObject("Word.Application.10")
If Err.Number <> 0 Then
Err.Clear
Set myWord = CreateObject("Word.Application.10")
myWord.Visible = False: objWW.WindowState = wdWindowStateMinimize
Else
myWord.Activate
myWord.Visible = False: objWW.WindowState = wdWindowStateMinimize
End If
'Template öffnen
Dim opener
opener = PathToTsiTemplates & "Testfuss.dot" 'Tsi01
myWord.Application.Documents.Open opener
Static Searchme(15) As String
Static Replaceme(15) As String
Searchme(0) = ""
Replaceme(0) = ""
Searchme(1) = "Test123"
Replaceme(1) = Worksheets("Daten").Range("C" & i)
For j = 1 To 14
Suchen und Ersetzen im SToryType FullText
With myWord.Selection.Find 'Suchen und Ersetzen aktivieren
.ClearFormatting 'Formatierung ignorieren
.Text = Searchme(j) 'Suchen nach
'MsgBox (Searchme(j) & Replaceme(j))
'MsgBox ("Suchen und Ersetzen gestartet")
.Replacement.ClearFormatting
.Replacement.Text = Replaceme(j) 'Ersetzen durch
.Execute Replace:=wdReplaceAll, Forward:=True, _
Wrap:=wdFindContinue, MatchWholeWord:=True
End With
Next j
OutputTsi01 = PathForTsiTemplates & Worksheets("Daten").Range("A" & i) & " " & Tsi01
myWord.ActiveDocument.SaveAs Filename:=OutputTsi01, FileFormat:=wdFormatTemplate
myWord.Application.Quit (True)
Set myWord = Nothing
Next i
End Sub