Hinweis
Für den Zugriff auf diese Seite ist eine Autorisierung erforderlich. Sie können versuchen, sich anzumelden oder das Verzeichnis zu wechseln.
Für den Zugriff auf diese Seite ist eine Autorisierung erforderlich. Sie können versuchen, das Verzeichnis zu wechseln.
Fügt die angegebene neue Assistentenseite an einer angegebenen Stelle in einer Publikation hinzu.
Syntax
Ausdruck verwendet werden. 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. 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. Wenn dieses Argument weggelassen wird, werden Links zu dieser Seite nicht zu den automatischen Navigationsleisten vorhandener Seiten hinzugefügt. |
Hinweise
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
Dieses Beispiel erstellt eine neue Katalogpublikation, fügt die Kalenderseite des Assistenten nach der ersten Seite des Katalogs hinzu und fügt die Seite als Link zu jedem Webnavigationsleistensatz der Publikation hinzu.
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 das aktive Dokument ein Katalog ist, und wenn dies der Fall ist, wird nach der ersten Seite ein Katalogformular hinzugefügt, die Seite jedoch nicht als Link in einem Webnavigationsleistensatz.
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.