Ersetzen Sie den Kopfzeilentext durch Excel VBA

Question

Ich versuche, meinen aktuellen Code zu ändern, um bestimmte Wörter in einem MSWord-Dokument zu ersetzen. Die ganze Idee funktioniert, aber nur für den Hauptteil des Dokuments und in der Kopf- oder Fußzeile passiert nichts. Können Sie mir bitte sagen, wo ich falsch liege?

Vielen Dank im Voraus!

Sub FindAndReplace(ByVal FindWord, ByVal ReplaceWord)

WordApp.ActiveDocument.Range.Find.Execute FindText:=FindWord, Wrap:=1, ReplaceWith:=ReplaceWord, Replace:=2
End Sub

Answer 1

Versuchen:

Sub FindAndReplace(ByVal FindWord, ByVal ReplaceWord)
Dim oStory as WordApp.Range
For Each oStory in WordApp.ActiveDocument.StoryRanges
    oStory.Find.Execute _
        FindText:=FindWord, ReplaceWith:=ReplaceWord, Wrap:=1, Replace:=2
Next oStory
Set oStory = Nothing
End Sub