AddWizardPage Method

expression.AddWizardPage(After, PageType, [AddHyperLinkToWebNavBar])

expression    Required. An expression that returns one of the objects in the Applies To list.

After   Required Long. The page after which to place the new wizard page.

PageType   Optional PbWizardPageType. The type of wizard page to add.

AddHyperLinkToWebNavBar   Optional Boolean. Specifies whether a link to the new page will be added to the automatic navigation bars of existing pages. Default is False, which means that if this argument is omitted, links to this page will not be added to the automatic navigation bars of existing pages.

Remarks

You can only add wizard pages to similar wizard publications. For example, you can add a Catalog Calendar Wizard page to a catalog but not to a newsletter. An error occurs if you try to add a wizard page to a different type of publication.

Example

This example creates a new catalog publication, adds the wizard calendar page after the first page of the catalog, and adds the page as a link to each Web navigation bar set of the publication.

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
		

This example verifies that the active document is a catalog and, if it is, adds a catalog form after the first page but does not add the page as a link in any Web navigation bar sets.

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