Header with Page Number through VBA

[Rajesh1297]

Hi Every one,



we are looking solution here for the header placement with page number through VBA. Can anyone help us to resolve this issue?

left Side Page we want a title with the Page number
right side Page we want Author's name with the Page number

attaching a Word file for your ref.

[Italophile]

Why do you need VBA for this?

Just use the Title and Author content controls that you find under Insert | Quick Parts | Document Property on both the front page and in the header.

[Rajesh1297]

Thank you for your suggestion.

we have tried to use Quick Part as well. but in every file we do the manual setting and its taking time to add every time. we have 1000+plus file and we want minimum manual work to be added header.

[gmaxey]

In your document template, create a building block entry of the Primary Page Header content (minus the final paragraph mark). Name it "HPP"


Create a building block entry of the Even Page Header content (minus the final paragraph mark). Name it "HEP"


Run this macro:

Sub ScratchMacro()
'A basic Word Macro coded by Gregory K. Maxey
Dim oHF As HeaderFooter
Dim oRng As Range
  For Each oHF In ActiveDocument.Sections(1).Headers
    Set oRng = oHF.Range
    Select Case oHF.Index
      Case wdHeaderFooterPrimary
        oRng.Text = vbNullString
        oRng.Collapse wdCollapseStart
        ActiveDocument.AttachedTemplate.BuildingBlockEntries("HPP").Insert oRng
      Case wdHeaderFooterEvenPages
        oRng.Text = vbNullString
        oRng.Collapse wdCollapseStart
        ActiveDocument.AttachedTemplate.BuildingBlockEntries("HEP").Insert oRng
     End Select
  Next
lbl_Exit:
  Exit Sub
End Sub