Header with Page Number through VBA

gmaxey · #4 07-25-2023, 05:00 AM

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:

Code:

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

Thread Tools
Show Printable Version Email this Page
Display Modes
Switch to Linear Mode Switch to Hybrid Mode Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Problem with page number header	webgal318	Word	4	06-22-2020 06:40 PM
Don't want page number or date in footer on first page, do want graphic in header.	dianahbr	Word	2	02-23-2018 09:25 AM
Header and page number	rimutaka	Word	4	06-01-2016 08:30 PM
Change page number in header on page x of y - y has too many pages	wpryan	Word VBA	3	07-17-2015 07:04 AM
Header and page number	atitool	Word	1	11-06-2014 06:42 AM