Page.PageNumber property (Publisher)
Returns a String that represents the current page number. Read-only.
Syntax
expression.PageNumber
expression A variable that represents a Page object.
Return value
String
Example
This example creates a text box, gets the current page number, and inserts it with new text into the new shape.
Sub GetPageNumber()
Dim strPageNumber As String
With ActiveDocument.Pages(1)
strPageNumber = .PageNumber
.Shapes.AddTextbox(Orientation:=pbTextOrientationHorizontal, _
Left:=100, Top:=100, Width:=100, Height:=100) _
.TextFrame.TextRange.InsertAfter NewText:="This is page " _
& strPageNumber & " of " & .Parent.Count & "."
End With
End Sub
Support and feedback
Have questions or feedback about Office VBA or this documentation? Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.