Pages.Add 方法 (Publisher)
将新的 Page 对象添加到指定的 Pages 对象,并返回新的 Page 对象。
语法
表达式。添加 (Count、 After、 DuplicateObjectsOnPage、 AddHyperlinkToWebNavBar)
表达 一个代表 Pages 对象的变量。
参数
名称 | 必需/可选 | 数据类型 | 说明 |
---|---|---|---|
Count | 必需 | Long | 要添加的新页数。 |
After | 必需 | Long | 其后要添加新页的页的索引。 此参数为零时,在出版物的开头添加新页。 |
DuplicateObjectsOnPage | 可选 | Long | 页的索引,该页上的对象将被复制到新页中。 如果省略此参数,则新页将为空白页。 默认值为 -1:不要复制页面。 |
AddHyperlinkToWebNavBar | 可选 | Boolean | 指定是否将指向新页面的链接添加到现有页面的自动导航栏。 如果 为 True,则指向新页面的链接仅添加到现有页面的自动导航栏中。 如果 为 False,则不会将指向新页面的链接添加到现有页面的自动导航栏或将来添加的新页面。 默认值为 False。 |
返回值
Page
示例
以下示例在出版物的第一页之后添加四个新页面,并将第一页中的所有对象复制到新页面。
Dim pgNew As Page
Set pgNew = ActiveDocument.Pages _
.Add(Count:=4, After:=1, DuplicateObjectsOnPage:=1)
下面的示例演示向出版物添加两个新页面,并为这些两页将 AddHyperlinkToWebNavBar 参数设置为 True 。 该选项用于指定链接到这两个新页面添加到现有页面的自动导航栏,并在以后添加。
Another page is then added to the publication, and the AddHyperlinkToWebNavBar is omitted. 这意味着,对于新添加的页面, IncludePageOnNewWebNavigationBars 属性为 False ,并且指向此页面的链接不包含在现有页面的自动导航栏中。
Dim thePage As page
Dim thePage2 As page
Set thePage = ActiveDocument.Pages.Add(Count:=2, _
After:=4, AddHyperlinkToWebNavBar:=True)
Set thePage2 = ActiveDocument.Pages.Add(Count:=1, After:=6)
支持和反馈
有关于 Office VBA 或本文档的疑问或反馈? 请参阅 Office VBA 支持和反馈,获取有关如何接收支持和提供反馈的指南。
反馈
https://aka.ms/ContentUserFeedback。
即将发布:在整个 2024 年,我们将逐步淘汰作为内容反馈机制的“GitHub 问题”,并将其取代为新的反馈系统。 有关详细信息,请参阅:提交和查看相关反馈