How to pull Word Header string from Excel VBA?

M

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!
 
D

Doug Robbins - Word MVP

Impatient eh? See response to your post of one minute later.

--
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
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top