使用英语阅读

通过


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