Word VisualBasic Script

  1. Home
  2. VisualBasic Script
  3. Word
  4. To add the chapter number to the page numbers, use heading numbering in your document, set the IncludeChapterNumber property to True,
Sub add()
    With ActiveDocument.Sections(1).Headers(wdHeaderFooterPrimary) _
        .PageNumbers
        .IncludeChapterNumber = True
        .ChapterPageSeparator = wdSeparatorEnDash
    End With
End Sub