TextRange.InsertPageNumber-Methode (Publisher)

Artikel
04/07/2023

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
Typ	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.

Freigeben über