TextRange.Duplicate 属性 (Publisher)

返回一个 TextRange 对象，该对象代表指定文字范围的副本。

语法

表达式。重复

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

返回值

TextRange

示例

本示例将一个字符串变量的值设置为当前出版物中第一页上指定文本框的内容。 然后，它会创建一个包含文本框的新页面，并将新文本框的内容设置为字符串变量的值。

Sub DuplicateTextBoxContents() 
 Dim strDuplicate As String 
 Dim pagNew As Page 
 
 With ThisDocument.Pages(1).Shapes(1).TextFrame.TextRange 
 strDuplicate = .Duplicate 
 End With 
 
 Set pagNew = ThisDocument.Pages.Add(Count:=1, After:=1) 
 
 pagNew.Shapes.AddTextbox(Orientation:=pbTextOrientationHorizontal, _ 
 Left:=72, Top:=72, Width:=200, Height:=200).TextFrame _ 
 .TextRange.Text = strDuplicate 
End Sub

支持和反馈

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