How to change words in Header/Footer from Excel

[jazzyt2u]

I will need to change certain words in the header and footer in Word but need the code to be in Excel.

Also can I place a Heading in the Header to be used in the TOC? If so how do I show that it's a heading?

Thanks

[jazzyt2u]

oDoc.ActiveWindow.ActivePane.View.SeekView = 9 'This opens the header on the current page


With oWord.Selection.Find


.ClearFormatting
.Replacement.ClearFormatting
.Text = "ReportName"
.Replacement.Text = MyRpt
.Forward = True


.Execute Replace:=1
End With



oDoc.ActiveWindow.ActivePane.View.SeekView = 0 'This closes the header