Pages.Add-Methode (Publisher)

Artikel
04/07/2023

Fügt dem angegebenen Pages-Objekt ein neues Page-Objekt hinzu und gibt das neue Page-Objekt zurück.

Syntax

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

Ausdruck Eine Variable, die ein Pages-Objekt darstellt.

Parameter

Name	Erforderlich/Optional	Datentyp	Beschreibung
Count	Erforderlich	Long	Die Anzahl von neuen Seiten, die hinzugefügt werden sollen.
After	Erforderlich	Long	Der Seitenindex der Seite, nach der die neuen Seiten hinzugefügt werden sollen. Eine Null für dieses Argument fügt neue Seiten am Anfang der Publikation hinzu.
DuplicateObjectsOnPage	Optional	Long	The page index of the page from which objects should be copied to the new pages. If this argument is omitted, the new pages will be blank. Der Standardwert ist -1: Seiten nicht duplizieren.
AddHyperlinkToWebNavBar	Optional	Boolescher Wert	Gibt an, ob links zu den neuen Seiten den automatischen Navigationsleisten vorhandener Seiten hinzugefügt werden. True gibt an, dass Links zu den neuen Seiten nur den automatischen Navigationsleisten vorhandener Seiten hinzugefügt werden. False gibt an, dass Links zu den neuen Seiten nicht zu den automatischen Navigationsleisten vorhandener Oder neuer Seiten hinzugefügt werden, die in Zukunft hinzugefügt werden. Der Standardwert ist False.

Rückgabewert

Seite

Beispiel

Im folgenden Beispiel werden vier neue Seiten nach der ersten Seite in der Publikation hinzugefügt und alle Objekte von der ersten Seite auf die neuen Seiten kopiert.

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

Im folgenden Beispiel wird veranschaulicht, wie zwei neue Seiten der Publikation und den AddHyperlinkToWebNavBar -Parameter für diese beiden Seiten auf True festlegen. Dies gibt an, die eine Verknüpfung für diese beiden neue Seiten zu den automatischen Navigationsleisten vorhandener Seiten und diese in Zukunft hinzugefügt werden.

Dann wird einer anderen Seite der Publikation hinzugefügt und der AddHyperlinkToWebNavBar-Parameter ausgelassen wird. Dies bedeutet, dass die IncludePageOnNewWebNavigationBars-Eigenschaft für die neu hinzugefügte Seite false ist und Links zu dieser Seite nicht in den automatischen Navigationsleisten vorhandener Seiten enthalten sind.

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)

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