Excel VBA modifying Word document Header & Footer

[marcellnoel26]

Good Afternoon,

I'm trying to modify my current code to replace specified words in a MS Word document. The whole idea is working but only for the body of the document and nothing happens in the header neither in the footer. Can you please advise me where am I wrong ?

Thank you in advance!

Sub FindAndReplace(ByVal FindWord, ByVal ReplaceWord)

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

 

[sykes]

Hi, and welcome to Mr. Excel.
This is an Excel forum, and whilst it does deal with a great deal of VBA, only Excel questions should be posed (I think!).
You should find a similar Word forum, and pose your question there. Offhand, I don't know any, but I've never checked...

That having been said, someone may come up with a solution for you.

Meanwhile, back at the Ranch, a quick Google search, (other search engines are available), revealed many threads, including this, which looked like a possible road to explore.
HTH