HeaderFooter Property Example

This example adds a centered page number to the current page footer.

With ActiveDocument.ActiveWindow.View
    .Type = wdPrintView
    .SeekView = wdSeekCurrentPageFooter
End With
Selection.HeaderFooter.PageNumbers.Add _
    PageNumberAlignment:=wdAlignPageNumberCenter