Pages.Add 方法 (Publisher)

將新的 Page 物件新增至指定的 Pages 物件，並傳回新的 Page 物件。

語法

運算式。新增 (Count、 After、 DuplicateObjectsOnPage、 AddHyperlinkToWebNavBar)

表達 代表 Pages 物件的變數。

參數

名稱	必要/選用	資料類型	描述
Count	必要	Long	要新增的新頁數。
After	必要	Long	要在其後面新增頁面之頁面的索引。 此引數若為零，則會在出版物的開頭新增頁面。
DuplicateObjectsOnPage	選用	Long	為頁面的頁面索引，物件應從此索引複製到新的頁面。 若省略此引數，新頁面將是空白的。 預設值為 -1：不要複製頁面。
AddHyperlinkToWebNavBar	選用	布林值	指定是否要將新頁面的連結新增至現有頁面的自動導覽列。 如果 為 True，則新頁面的連結只會新增至現有頁面的自動導覽列。 如果 為 False，則新頁面的連結不會新增至現有頁面或未來新增頁面的自動導覽列。 預設值為 False 。

傳回值

頁面

範例

下列範例會在出版物的第一頁之後新增四個新頁面，並將第一頁的所有物件複製到新頁面。

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

下列範例會示範如何將兩個新頁面新增至出版物和下列兩個頁面將 AddHyperlinkToWebNavBar 參數設 為 True 。 這會指定連結至下列兩個新頁面新增至現有的頁面的自動導覽列使用者和未來新增。

另一個頁面會新增至出版物，並省略 AddHyperlinkToWebNavBar 。 這表示新新增頁面的 IncludePageOnNewWebNavigationBars 屬性為 False ，而且此頁面的連結不會包含在現有頁面的自動導覽列中。

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)

支援和意見反應

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