How to get Word Header String from within Excel VBA?

[MikeZz]

I have a macro that pulls information from a word file but can't get to the
Header string.

In word2003, I can get the following vba command to pull the text from the
header. The question is how to run this command from within Excel.

Working Word VBA Command
test = ActiveDocument.Sections(1).Headers(wdHeaderFooterPrimary).Range.Text

Failed Excel VBA Command
test = oWord.Sections(1).Headers(wdHeaderFooterPrimary).Range.Text

Excel VBA Error:
"Compile Error. Methood or data member not found."

For reference, I've used the following other commands to run Word from Excel:
Dim oWord As Word.Application
Set oWord = GetObject(, "Word.Application")
oWord.Selection.Find.ClearFormatting
With oWord.Selection.Find
.Text = "Product/DRD FAM"
.Wrap = wdFindContinue
End With
oWord.Selection.Find.Execute 'Finds Start of EWO Body
oWord.Selection.MoveRight Unit:=wdCell

Thanks!

 

[Doug Robbins - Word MVP]

Declare a document object and set it to oWord.ActiveDocument (or some other
document) and then operate on the document object.


--
Hope this helps.

Please reply to the newsgroup unless you wish to avail yourself of my
services on a paid consulting basis.

Doug Robbins - Word MVP