Substitua o texto do cabeçalho pelo Excel VBA

Question

Estou tentando modificar meu código atual para substituir palavras especificadas em um documento MSWord. A ideia toda está funcionando, mas apenas para o corpo do documento e nada acontece no cabeçalho ou rodapé. Você pode me informar onde estou errado?

Agradeço antecipadamente!

Sub FindAndReplace(ByVal FindWord, ByVal ReplaceWord)

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

Answer 1

Tentar:

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