Page.PageNumber-Eigenschaft (Publisher)

Gibt eine Zeichenfolge, die die aktuelle Seitenzahl darstellt. Schreibgeschützt.

Syntax

Ausdruck. Pagenumber

Ausdruck Eine Variable, die ein Page-Objekt darstellt.

Rückgabewert

Zeichenfolge

Beispiel

Dieses Beispiel erstellt ein Textfeld, ruft die aktuelle Seitenzahl ab und fügt sie zusammen mit neuem Text in die neue Form ein.

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 und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.