Partager via


Objet Page (Éditeur)

Représente une page dans une composition. La collection Pages contient tous les objets Page dans une composition.

Remarques

Utilisez Pages (index) pour renvoyer un seul objet Page .

Utilisez la propriété FindByPageID de l’objet Pages pour localiser un objet Page à l’aide de l’ID de page attribué par l’application.

Utilisez la méthode Add pour créer une page et l’ajouter à la composition.

Exemple

L'exemple suivant ajoute un nouveau texte à la première forme sur la première page de la composition active.

Sub AddPageNumberField() 
 With ActiveDocument.Pages(1).Shapes(1).TextFrame.TextRange 
 .InsertAfter " This text is added after the existing text." 
 .Font.Size = 15 
 End With 
End Sub

L’exemple suivant ajoute une nouvelle page à la composition active, puis recherche cette page à l’aide de l’ID de page.

Sub FindPage() 
 Dim lngPageID As Long 
 
 'Get page ID 
 lngPageID = ActiveDocument.Pages.Add(Count:=1, After:=1).PageID 
 
 'Use page ID to add a new shape to the page 
 ActiveDocument.Pages.FindByPageID(PageID:=lngPageID) _ 
 .Shapes.AddShape Type:=msoShape5pointStar, _ 
 Left:=200, Top:=72, Width:=50, Height:=50 
 
End Sub

Méthodes

Propriétés

Voir aussi

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.