Story.TextRange プロパティ (Publisher)

図形とプロパティ、およびテキストを操作するためのメソッドに関連付けられているテキストを表す TextRange オブジェクトを返します。

構文

式。Textrange

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

例

次の例では、作業中の文書では、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 のサポートおよびフィードバックを参照してください。