Page.Duplicate 方法 (Publisher)

创建指定的 页面 对象的一个副本，然后返回新的 Page 对象。

语法

表达式。重复

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

返回值

Page

示例

以下示例复制出版物的第一页并设置副本的属性。 然后向新页面添加形状并设置形状的属性。

Dim objPage As Page 
Set objPage = ActiveDocument.Pages(1).Duplicate 
With objPage 
 .Background.Fill.ForeColor.SchemeColor = pbSchemeColorAccent1 
 .Shapes.AddShape msoShapeRectangle, 150, 250, 310, 275 
 With .Shapes(1) 
 .Fill.ForeColor.SchemeColor = pbSchemeColorAccent3 
 End With 
End With 

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。