Заменить текст заголовка на Excel VBA

Question

Я пытаюсь изменить свой текущий код, чтобы заменить указанные слова в документе MSWord. Вся идея работает, но только для тела документа, и ничего не происходит в заголовке или нижнем колонтитуле. Можете ли вы подсказать мне, где я не прав?

Заранее спасибо!

Sub FindAndReplace(ByVal FindWord, ByVal ReplaceWord)

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

Answer 1

Пытаться:

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