How to get Word Header Text into 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!

[aidan.heritage@virgin.net]

You are using Word constants, without (I suspect) having bound to the
word object - instead of wdHeaderFooterPrimary use the digit 1 - so

test = ActiveDocument.Sections(1).Headers(1).Range.Text

should be fine - 1 is the value of that particular word constant

MikeZz wrote:
> 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!

[MikeZz]

Any idea what the magic command is to get the Current Page # and total pages
of the Word file (while in Excel VBA)

"aidan.heritage@virgin.net" wrote:

> You are using Word constants, without (I suspect) having bound to the
> word object - instead of wdHeaderFooterPrimary use the digit 1 - so
>
> test = ActiveDocument.Sections(1).Headers(1).Range.Text
>
> should be fine - 1 is the value of that particular word constant
>
> MikeZz wrote:
> > 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!
>
>

[MikeZz]

For Inquiring Minds who want to know how to get the current Page Number:

test = oWord.Selection.Information(3)

"aidan.heritage@virgin.net" wrote:

> You are using Word constants, without (I suspect) having bound to the
> word object - instead of wdHeaderFooterPrimary use the digit 1 - so
>
> test = ActiveDocument.Sections(1).Headers(1).Range.Text
>
> should be fine - 1 is the value of that particular word constant
>
> MikeZz wrote:
> > 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!
>
>

[aidan.heritage@virgin.net]

and oword.selection.information(4) would give you the total number of
pages in the document.

MikeZz wrote:
> For Inquiring Minds who want to know how to get the current Page Number:
>
> test = oWord.Selection.Information(3)
>
> "aidan.heritage@virgin.net" wrote:
>
> > You are using Word constants, without (I suspect) having bound to the
> > word object - instead of wdHeaderFooterPrimary use the digit 1 - so
> >
> > test = ActiveDocument.Sections(1).Headers(1).Range.Text
> >
> > should be fine - 1 is the value of that particular word constant
> >
> > MikeZz wrote:
> > > 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!
> >
> >