Word VisualBasic Script

  1. Home
  2. VisualBasic Script
  3. Word
  4. Select the PageNumber object and then apply formatting to it as you would any other selection
Sub pageNumber()
    ActiveDocument.Sections(4).Headers(wdHeaderFooterPrimary) _
        .PageNumbers(1).Select
        With Selection.Font
            .Name = "Impact"
            .Size = 20
            .Bold = True
        End With
End Sub