How Does One Add a Page Number to a Header?

I would like to create a header so that: â??Add Title Hereâ?? appears on the left
side of the page, and â??Page {PAGE}â?? appears on the right side of the page. So
far I got:

Sub AddHeader()
Dim oRange As Range

Set oRange = ActiveDocument.Range(Start:=ActiveDocument.Range.Start,
End:=ActiveDocument.Range.End)
With oRange.Sections(1).Headers(wdHeaderFooterPrimary).Range
.Delete
.Paragraphs.Alignment = wdAlignParagraphLeft
.InsertAfter "Add Title Here" & vbTab & vbTab & "Page "
End With
End Sub

I would like a page number to follow: "Page ", I wish I could just add: &
vbPageNumber, but I suspect that it will be more complex than that.

Any help will be greatly appreciated.

Steven Craig Miller

P.S. I apologize for having wrongly placed a duplicate message in Word Tables.

Doug
Sun May 04 21:28:02 PDT 2008

I would suggest that you create a template that already has the header set
up in it and use a userform to ask the user for the Title of the document
and have code in the form save the Title to a document variable varTitle and
have a { DOCVARIABLE varTitle } field in the header to display the title.

See the article "How to create a Userform" at:

http://word.mvps.org/FAQs/Userforms/CreateAUserForm.htm


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

"StevenM" <StevenM@discussions.microsoft.com> wrote in message
news:C6E8D2BA-C8C2-452D-8505-4FFDA79398D6@microsoft.com...
>I would like to create a header so that: "Add Title Here" appears on the
>left
> side of the page, and "Page {PAGE}" appears on the right side of the page.
> So
> far I got:
>
> Sub AddHeader()
> Dim oRange As Range
>
> Set oRange = ActiveDocument.Range(Start:=ActiveDocument.Range.Start,
> End:=ActiveDocument.Range.End)
> With oRange.Sections(1).Headers(wdHeaderFooterPrimary).Range
> .Delete
> .Paragraphs.Alignment = wdAlignParagraphLeft
> .InsertAfter "Add Title Here" & vbTab & vbTab & "Page "
> End With
> End Sub
>
> I would like a page number to follow: "Page ", I wish I could just add: &
> vbPageNumber, but I suspect that it will be more complex than that.
>
> Any help will be greatly appreciated.
>
> Steven Craig Miller
>
> P.S. I apologize for having wrongly placed a duplicate message in Word
> Tables.

StevenM
Mon May 05 04:14:02 PDT 2008

I think I figured it out. The following seems to work:

Sub AddHeader()
Dim oRange As Range
Dim headerRange As Range

Set oRange = ActiveDocument.Range(Start:=ActiveDocument.Range.Start,
End:=ActiveDocument.Range.End)
Set headerRange = oRange.Sections(1).Headers(wdHeaderFooterPrimary).Range

With headerRange
.Delete
.InsertAfter "Title:" & vbTab & vbTab & "Page "
.MoveEnd Unit:=wdCharacter, Count:=1
.Collapse wdCollapseEnd
oRange.Fields.Add Range:=headerRange, Type:=wdFieldPage
End With
End Sub

Steven Craig Miller

fumei
Mon May 05 06:37:23 PDT 2008

You would be MUCH better off doing as it was suggested. Have this as a
template. Especially one that uses Styles properly.

StevenM wrote:
>I think I figured it out. The following seems to work:
>
>Sub AddHeader()
>Dim oRange As Range
>Dim headerRange As Range
>
>Set oRange = ActiveDocument.Range(Start:=ActiveDocument.Range.Start,
>End:=ActiveDocument.Range.End)
>Set headerRange = oRange.Sections(1).Headers(wdHeaderFooterPrimary).Range
>
>With headerRange
>.Delete
>.InsertAfter "Title:" & vbTab & vbTab & "Page "
>.MoveEnd Unit:=wdCharacter, Count:=1
>.Collapse wdCollapseEnd
>oRange.Fields.Add Range:=headerRange, Type:=wdFieldPage
>End With
>End Sub
>
>Steven Craig Miller

--
Message posted via http://www.officekb.com

StevenM
Mon May 05 08:17:01 PDT 2008

"fumei via OfficeKB.com" wrote: << You would be MUCH better off doing as it
was suggested. Have this as a template. Especially one that uses Styles
property. >>

Is it possible to have two (or more) headers using a styles property? So
that if one option is chosen (via a user form) then header "A" can be used,
and if another option is chosen then header "B" is used?

-Steven Craig Miller

fumei
Mon May 05 10:34:20 PDT 2008

Yes. But why would they have to have different styles? Different styles
does not mean different content. You can have different content, but the
same style.

You can do what ever you want (pretty much).

If you have to have different headers - depending on a user choice selected
from a userform - then you can easily put that choice into the header using
AutoText.

In the example below, I made two Autotext entries in the template. HeaderA
and HeaderB. I made them very different, but that DOES NOT MATTER.

I used an InputBox...but that also does not matter. You can just as easily
do it from a userform on Document_New (when you clone a new document from the
template. What matters is you now have a choice.

Dim whatever
whatever = InputBox("A or B")
Select Case whatever
Case "A"
ActiveDocument.AttachedTemplate.AutoTextEntries("HeaderA") _
.Insert _
Where:=ActiveDocument.Sections(1).Headers(wdHeaderFooterPrimary).
Range, _
RichText:=True
Case "B"
ActiveDocument.AttachedTemplate.AutoTextEntries("HeaderB") _
.Insert _
Where:=ActiveDocument.Sections(1).Headers(wdHeaderFooterPrimary).
Range, _
RichText:=True
Case Else
MsgBox "Huh"
End Select

Enter "A".....HeaderA gets dumped into the header.

Enter "B".....HeaderB gets dumped into the header.

As it happens, I made HeaderA have an image (a logo), some text, and a PAGE
field, using a style I named whoCares_1

I made HeaderB have text, tabs, and a PAGE field, using a style I named
WhoREALLYcares.

IT DOES NOT MATTER. The code inserts the AutoText as it is, whatever it is.


StevenM wrote:
>"fumei via OfficeKB.com" wrote: << You would be MUCH better off doing as it
>was suggested. Have this as a template. Especially one that uses Styles
>property. >>
>
>Is it possible to have two (or more) headers using a styles property? So
>that if one option is chosen (via a user form) then header "A" can be used,
>and if another option is chosen then header "B" is used?
>
>-Steven Craig Miller

--
Message posted via OfficeKB.com
http://www.officekb.com/Uwe/Forums.aspx/word-programming/200805/1