Page.Add, méthode (Publisher)

Article
04/07/2023

Ajoute un nouvel objet Page à l’objet Pages spécifié et retourne le nouvel objet Page .

Syntaxe

expression. Add (Count, After, DuplicateObjectsOnPage, AddHyperlinkToWebNavBar)

Expression Variable qui représente un objet Pages .

Parameters

Nom	Requis/Facultatif	Type de données	Description
Count	Obligatoire	Entier long	Nombre de nouvelles pages à ajouter.
Après	Obligatoire	Entier long	Index de la page après laquelle ajouter les nouvelles pages. La valeur zéro pour cet argument ajoute les nouvelles pages au début de la composition.
DuplicateObjectsOnPage	Facultatif	Entier long	Index de la page à partir de laquelle les objets doivent être copiés sur les nouvelles pages. Si cet argument est omis, les nouvelles pages seront vides. La valeur par défaut est -1 : ne pas dupliquer les pages.
AddHyperlinkToWebNavBar	Facultatif	Boolean	Spécifie si les liens vers les nouvelles pages sont ajoutés aux barres de navigation automatique des pages existantes. Si la valeur est True, les liens vers les nouvelles pages sont ajoutés aux barres de navigation automatique des pages existantes uniquement. Si la valeur est False, les liens vers les nouvelles pages ne sont pas ajoutés aux barres de navigation automatique des pages existantes ou des nouvelles pages ajoutées à l’avenir. La valeur par défaut est False.

Valeur renvoyée

Page

Exemple

L’exemple suivant ajoute quatre nouvelles pages après la première page de la composition et copie tous les objets de la première page vers les nouvelles pages.

Dim pgNew As Page 
 
Set pgNew = ActiveDocument.Pages _ 
 .Add(Count:=4, After:=1, DuplicateObjectsOnPage:=1)

L'exemple suivant montre comment ajouter deux nouvelles pages à la composition et au paramètre AddHyperlinkToWebNavBar ala valeur True pour ces deux pages. Cela signifie que les liens vers ces deux nouvelles pages seront ajoutés aux barres de navigation automatique des pages existantes et celles ajoutées ultérieurement.

Une autre page est ensuite ajoutée à la composition et paramètre AddHyperlinkToWebNavBar est omis. Cela signifie que la propriété IncludePageOnNewWebNavigationBars a la valeur False pour la page nouvellement ajoutée et que les liens vers cette page ne sont pas inclus dans les barres de navigation automatique des pages existantes.

Dim thePage As page 
Dim thePage2 As page 
 
Set thePage = ActiveDocument.Pages.Add(Count:=2, _ 
 After:=4, AddHyperlinkToWebNavBar:=True) 
 
Set thePage2 = ActiveDocument.Pages.Add(Count:=1, After:=6)

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