Publisher) (Page 物件

代表出版物的頁面。 Pages 集合包含出版物中的所有 Page 物件。

註解

使用 Pages (索引) 可傳回單一 Page 物件。

使用Pages物件的FindByPageID屬性，即可使用應用程式指派的頁面識別碼來尋找Page物件。

使用 [ 新增 建立新頁面並將其新增至出版物的方法。

範例

下列範例會將新的文字新增至使用中出版物第一頁上的第一個圖案。

Sub AddPageNumberField() 
 With ActiveDocument.Pages(1).Shapes(1).TextFrame.TextRange 
 .InsertAfter " This text is added after the existing text." 
 .Font.Size = 15 
 End With 
End Sub

下列範例會將新頁面新增至使用中出版物，然後使用頁面識別碼來尋找該頁面。

Sub FindPage() 
 Dim lngPageID As Long 
 
 'Get page ID 
 lngPageID = ActiveDocument.Pages.Add(Count:=1, After:=1).PageID 
 
 'Use page ID to add a new shape to the page 
 ActiveDocument.Pages.FindByPageID(PageID:=lngPageID) _ 
 .Shapes.AddShape Type:=msoShape5pointStar, _ 
 Left:=200, Top:=72, Width:=50, Height:=50 
 
End Sub

方法

• Delete
• Duplicate
• ExportEmailHTML
• Move
• SaveAsPicture

屬性

• 應用程式
• 背景
• 頁尾
• 頁首
• Height
• IgnoreMaster
• IsLeading
• IsTrailing
• IsTwoPageMaster
• IsWizardPage
• LayoutGuides
• 主圖形
• 名稱
• PageID
• PageIndex
• PageNumber
• PageType
• Parent
• ReaderSpread
• RulerGuides
• Shapes
• 標記
• WebPageOptions
• Width
• 精靈
• XOffsetWithinReaderSpread
• YOffsetWithinReaderSpread

另請參閱

• Publisher 物件模型參考

支援和意見反應

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