Méthode TextRange.InsertPageNumber (Publisher)

Article
04/07/2023

Renvoie un objet TextRange qui représente un champ numéro de page dans une composition.

Syntaxe

expression. InsertPageNumber (Type)

Expression Variable qui représente un objet TextRange .

Parameters

Nom	Requis/Facultatif	Type de données	Description
Type	Facultatif	PbPageNumberType	Spécifie si le numéro de page est le numéro de page actuel ou le numéro suivant ou précédent d'une zone de texte liée. Il peut s’agir de l’une des constantes PbPageNumberType .

Valeur renvoyée

TextRange

Exemple

Cet exemple insère un champ de numéro de page dans une forme sur la page maître, de sorte que le numéro de page actuel s’affiche en haut de chaque page.

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

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.

Partager via