Hinweis
Für den Zugriff auf diese Seite ist eine Autorisierung erforderlich. Sie können versuchen, sich anzumelden oder das Verzeichnis zu wechseln.
Für den Zugriff auf diese Seite ist eine Autorisierung erforderlich. Sie können versuchen, das Verzeichnis zu wechseln.
Gibt ein TextRange-Objekt zurück, das ein Seitenzahlenfeld in einer Publikation darstellt.
Syntax
Ausdruck. InsertPageNumber (Type)
Ausdruck Eine Variable, die ein TextRange-Objekt darstellt.
Parameter
| Name | Erforderlich/Optional | Datentyp | Beschreibung |
|---|---|---|---|
| Type | Optional | PbPageNumberType | Gibt an, ob die Seitenzahl der aktuellen Seitenzahl oder der nächsten oder vorherigen Seitenzahl eines verknüpften Textfelds entspricht. Dies kann eine der PbPageNumberType-Konstanten sein. |
Rückgabewert
TextRange
Beispiel
Dieses Beispiel fügt ein Seitenzahlenfeld in eine Form auf der Gestaltungsvorlage ein, sodass die aktuelle Seitenzahl oben auf jeder Seite angezeigt wird.
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
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.