Find / Replace in Header and Footer

[simonerratt]

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.