Reemplace el texto del encabezado con Excel VBA

Question

Estoy intentando modificar mi código actual para reemplazar palabras específicas en un documento de MSWord. Toda la idea funciona, pero sólo para el cuerpo del documento y no sucede nada en el encabezado ni en el pie de página. ¿Puedes aconsejarme dónde me equivoco?

¡Gracias de antemano!

Sub FindAndReplace(ByVal FindWord, ByVal ReplaceWord)

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

Answer 1

Intentar:

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