閱讀英文

共用方式為


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

方法

屬性

另請參閱

支援和意見反應

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