共用方式為

Word) (TextFrame.TextRange 屬性

  • 發行項

會傳回 Range 物件，代表指定文字圖文框中的文字。

語法

運算式。TextRange

表達 會傳回 TextFrame 物件的運算式。

範例

本範例會將文字方塊新增至使用中文件，然後將文字新增至該文字方塊。

Set myTBox = ActiveDocument.Shapes _ 
 .AddTextBox(Orientation:=msoTextOrientationHorizontal, _ 
 Left:=100, Top:=100, Width:=300, Height:=200) 
myTBox.TextFrame.TextRange = "Test Box"

本範例會將文字新增至使用中文件內的 TextBox 1。

ActiveDocument.Shapes("TextBox 1").TextFrame.TextRange _ 
 .InsertAfter("New Text")

本範例會傳回使用中文件內之 TextBox 1 中的文字，並且將該文字顯示於訊息方塊中。

MsgBox ActiveDocument.Shapes("TextBox 1").TextFrame.TextRange.Text

另請參閱

TextFrame 物件

支援和意見反應

有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。