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.