Pages.AddWizardPage-Methode (Publisher)

Fügt die angegebene neue Assistentenseite an einer angegebenen Stelle in einer Publikation hinzu.

Syntax

Ausdruck. AddWizardPage (After, PageType, AddHyperlinkToWebNavBar)

Ausdruck Eine Variable, die ein Pages-Objekt darstellt.

Parameter

Name	Erforderlich/Optional	Datentyp	Beschreibung
After	Erforderlich	Long	Die Seite, nach der die neue Assistentenseite platziert werden soll.
PageType	Optional	PbWizardPageType	Der Typ der Assistentenseite, die hinzugefügt werden soll. Dies kann eine der PbWizardPageType-Konstanten sein, die in der Microsoft Publisher-Typbibliothek deklariert sind.
AddHyperlinkToWebNavBar	Optional	Boolean	Gibt an, ob den automatischen Navigationsleisten vorhandener Seiten ein Link zur neuen Seite hinzugefügt wird. Der Standardwert ist False, d. h., wenn dieses Argument weggelassen wird, werden den automatischen Navigationsleisten vorhandener Seiten keine Links zu dieser Seite hinzugefügt.

HinwBemerkungeneise

Sie können Assistentenseiten nur ähnlichen Assistentenpublikationen hinzufügen. Sie können z. B. eine Katalogkalender-Assistentenseite einem Katalog hinzufügen, nicht jedoch einem Magazin. Wenn Sie versuchen, eine Assistentenseite einem anderen Typ von Publikation hinzuzufügen, tritt ein Fehler auf.

Beispiel

In diesem Beispiel wird eine neue Katalogveröffentlichung erstellt, die Kalenderseite des Assistenten nach der ersten Seite des Katalogs hinzugefügt und die Seite als Link zu jedem Webnavigationsleistensatz der Publikation hinzugefügt.

Sub AddNewWizardPage() 
 Dim PubApp As Publisher.Application 
 Dim PubDoc As Publisher.Document 
 Set PubApp = New Publisher.Application 
 Set PubDoc = PubApp.NewDocument(Wizard:=pbWizardCatalogs, _ 
 Design:=7) 
 PubDoc.Pages.AddWizardPage After:=1, _ 
 PageType:=pbWizardPageTypeCatalogCalendar, _ 
 AddHyperLinkToWebNavBar:=True 
 PubApp.ActiveWindow.Visible = True 
End Sub

In diesem Beispiel wird überprüft, ob es sich bei dem aktiven Dokument um einen Katalog handelt, und wenn dies der Fall ist, wird nach der ersten Seite ein Katalogformular hinzugefügt, die Seite wird jedoch nicht als Link in webnavigationsleistensätzen hinzugefügt.

Sub InsertCatalogWizardPage() 
 With ActiveDocument 
 If .Wizard.ID = 161 Then 
 .Pages.AddWizardPage After:=1, _ 
 PageType:=pbWizardPageTypeCatalogForm, _ 
 AddHyperLinkToWebNavBar:=False 
 End If 
 End With 
End Sub

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.