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
- 應用程式
- 背景
- 頁尾
- 頁首
- Height
- IgnoreMaster
- IsLeading
- IsTrailing
- IsTwoPageMaster
- IsWizardPage
- LayoutGuides
- 主圖形
- 名稱
- PageID
- PageIndex
- PageNumber
- PageType
- Parent
- ReaderSpread
- RulerGuides
- Shapes
- 標記
- WebPageOptions
- Width
- 精靈
- XOffsetWithinReaderSpread
- YOffsetWithinReaderSpread
有關於 Office VBA 或這份文件的問題或意見反應嗎? 如需取得支援服務並提供意見反應的相關指導,請參閱 Office VBA 支援與意見反應。