Pages.FindByPageID 方法 (Publisher)

返回一个 Page 对象，代表与指定的页面 ID 编号的页面。 每个页面创建时自动分配一个唯一的 ID 号。 使用 PageID 属性返回页面的 ID 号。

语法

表达式。FindByPageID (PageID)

表达 一个代表 Pages 对象的变量。

参数

名称	必需/可选	数据类型	说明
PageID	必需	Long	指定要返回的页的 ID 号。 Publisher 在创建页面时会分配该号码。

返回值

Page

备注

与不同的 PageIndex 属性， Page 对象的 PageID 属性不会更改时您将向页面添加或重新排列出版物中的页面。 因此，使用的页面 ID 号的 FindByPageID 方法可以更可靠的方式从一个 Pages 集合比使用 Item 方法与网页的索引号返回特定的 页 对象。

示例

此示例演示如何检索 Page 对象的唯一 ID 号，然后使用此编号从 Pages 集合中返回该 Page 对象，并将新形状添加到页面。

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