Selection.TextRange プロパティ (Publisher)

図形にアタッチされているテキストと、テキストを操作するためのプロパティとメソッドを表す TextRange オブジェクトを返します。

構文

式。Textrange

式Selection オブジェクトを表す変数。

例

次の例では、作業中の文書では、1 番目の図形のテキスト枠にテキストを追加し、新しいテキストの書式を設定します。 この使用例では、作業中の文書の最初のページに図形が少なくとも 1 つ存在することを前提としています。

Sub AddTextToTextFrame() 
 With ActiveDocument.Pages(1).TextFrame.TextRange 
 .Text = "My Text" 
 With .Font 
 .Bold = msoTrue 
 .Size = 25 
 .Name = "Arial" 
 End With 
 End With 
End Sub

次の使用例は、作業中の文書に四角形を追加し、その四角形にテキストを追加します。

Sub AddTextToShape() 
 With ActiveDocument.Pages(1).Shapes.AddShape(Type:=msoShapeRectangle, _ 
 Left:=72, Top:=72, Width:=250, Height:=140) 
 .TextFrame.TextRange.Text = "Here is some test text" 
 End With 
End Sub

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。