Find / Replace in Header and Footer

simonerratt

New member
Joined
Jun 24, 2004
Messages
1
Programming Experience
1-3
Hi all,

I have no trouble doing a find/replace on most of a Word 2003 document, but can't find how to replace items in the header and footer. This is how I am replacing regular text:

oMSIDoc = oWordApp.ActiveDocument

oMSIDoc.Content.Find.Execute(FindText:="<apptitle>", ReplaceWith:=sTitle, Replace:=Word.WdReplace.wdReplaceAll)

Any ideas?

Thanks in advance,

Simon.
 
Top Bottom