次の方法で共有

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 のサポートおよびフィードバックを参照してください。