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.