Creating "Page X of Y" Page Numbers : Document Header Footer « Word « VBA / Excel / Access / Word






  1. VBA / Excel / Access / Word
  2. Word
  3. Document Header Footer

Creating "Page X of Y" Page Numbers

 
Sub pageNumber()
    ActiveDocument.Sections(ActiveDocument.Sections.Count) _
        .Headers(wdHeaderFooterPrimary).Range.Select
    With Selection
        .Paragraphs(1).Alignment = wdAlignParagraphCenter
        .TypeText Text:="Page "
        .Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:= _
            "PAGE ", PreserveFormatting:=True
        .TypeText Text:=" of "
        .Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:= _
            "NUMPAGES ", PreserveFormatting:=True
    End With
End Sub








Related examples in the same category

1.Getting to the Header or Footer
2.Adding Page Numbers to One or More Sections of a Document
3.Finding Out if a Section of a Document Has Page Numbers
4.Changing the Page Numbering for a Section
5.To add the chapter number to the page numbers, use heading numbering in your document, set the IncludeChapterNumber property to True, and specify the separator to use
6.Suppressing the Page Number for the First Page: set the ShowFirstPageNumber property for the appropriate HeaderFooter object in the appropriate section to False
7.Formatting Page Numbers
8.Select the PageNumber object and then apply formatting to it as you would any other selection
9.adds a new-page section to the active document, placing it before the second paragraph:
10.Removing Page Numbers from One or More Sections of a Document