Word VisualBasic Script

  1. Home
  2. VisualBasic Script
  3. Word
  4. Finding Out if a Section of a Document Has Page Numbers
Sub find()
If Selection.Sections(1).Headers(wdHeaderFooterEvenPages) _
    .PageNumbers.Count = 0 Then Selection.Sections(1) _
    .Headers(wdHeaderFooterEvenPages).PageNumbers.add _
    PageNumberAlignment:=wdAlignPageNumberCenter
End Sub