Publisher) (TextRange.Duplicate 屬性

會傳回代表複製之指定文字範圍的 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 支援與意見反應。