Partager via

Propriété Page.PageNumber (Publisher)

  • Article

Renvoie une chaîne qui représente le numéro de page actuel. En lecture seule.

Syntaxe

expression. PageNumber

Expression Variable qui représente un objet Page .

Valeur renvoyée

String

Exemple

Cet exemple crée une zone de texte et récupère le numéro de page en cours en vue de l’insérer avec le nouveau texte dans la nouvelle forme.

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

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.