object that represents a page number field in a publication.
expression.InsertPageNumber(Type)
expression Required. An expression that returns one of the objects in the Applies To list.
Type Optional PbPageNumberType. Specifies whether the page number is the current page number or the next or previous page number of a linked text box.
| PbPageNumberType can be one of these PbPageNumberType constants. |
| pbPageNumberCurrent default |
| pbPageNumberNextInStory Inserts the page number of the next linked text box. |
| pbPageNumberPreviousInStory Inserts the page number of the previous linked text box. |
Example
This example inserts a page number field in a shape on the master page so that the current page number appears at the top of each page.
Sub PageNumberShape()
With ActiveDocument.MasterPages(1).Shapes _
.AddShape(Type:=msoShape5pointStar, Left:=36, _
Top:=36, Width:=50, Height:=50)
With .TextFrame.TextRange
.InsertPageNumber
.ParagraphFormat.Alignment = pbParagraphAlignmentCenter
End With
.Fill.ForeColor.RGB = RGB(Red:=125, Green:=125, Blue:=255)
End With
End Sub