Pages.AddWizardPage 方法 (Publisher)

將指定的新精靈頁面新增至出版物的指定位置。

語法

運算式。AddWizardPage (After、 PageType、 AddHyperlinkToWebNavBar)

表達 代表 Pages 物件的變數。

參數

名稱	必要/選用	資料類型	描述
After	必要	Long	要在後面放置新精靈頁面的頁面。
PageType	選用	PbWizardPageType	要新增的精靈頁面類型。 可以是 Microsoft Publisher 類型程式庫中所宣告的 PbWizardPageType 常數之一。
AddHyperlinkToWebNavBar	選用	Boolean	指定是否要連結至新的頁面新增至現有的頁面的自動導覽列。 預設值為 False ，這表示如果省略此引數，則此頁面的連結會新增至現有的頁面的自動導覽列。

註解

您只能將精靈頁面新增至類似的精靈出版物。 例如，您可以將 [目錄行事曆精靈] 頁面新增至目錄，而不能新增至新聞稿。 若嘗試將精靈頁面新增至不同類型的出版物，便會發生錯誤。

範例

此範例會建立新的目錄發行集、將精靈行事曆頁面新增至目錄的第一頁之後，然後將該頁面新增為出版物之每個 Web 導覽列集的連結。

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

此範例會驗證使用中檔是否為目錄，如果是，則在第一頁之後新增目錄表單，但不會將頁面新增為任何 Web 導覽列集合中的連結。

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

支援和意見反應

有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。