通过

Page 对象 (Publisher)

  • 项目

代表出版物中的页面。 Pages 集合包含出版物中的所有 页面 对象。

备注

使用 Pages (索引) 可返回单个 Page 对象。

使用 Pages 对象的 FindByPageID 属性，可以使用应用程序分配的页面 ID 查找 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

以下示例将新页面添加到当前出版物，然后使用页面 ID 查找该页面。

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 支持和反馈，获取有关如何接收支持和提供反馈的指南。