Word) (TextFrame 物件
代表文字圖文框中的 Shape 物件。 TextFrame 物件包含文字圖文框和控制的邊界和方向的文字圖文框屬性中的文字。
註解
使用 TextFrame 屬性可傳回 TextFrame 物件的圖案。 TextRange 屬性會傳回代表指定之的文字圖文框內的文字範圍的 Range 物件。 下列範例會將文字新增至使用中文件內第一個圖案之文字圖文框。
ActiveDocument.Shapes(1).TextFrame.TextRange.Text = "My Text"
注意事項
某些圖形不支援 (行、手繪多邊形、圖片和 OLE 物件的附加文字，例如) 。 如果嘗試對這些物件傳回或設定控制文字圖文框文字的屬性，就會發生錯誤。
使用 HasText 若要判斷文字圖文框是否包含文字，如下列範例所示的屬性。
For Each s In ActiveDocument.Shapes
With s.TextFrame
If .HasText Then MsgBox .TextRange.Text
End With
Next
可以一起連結文字圖文框使文字流向為從一個圖案之文字圖文框到另一個圖形的文字圖文框。 使用 [ 下一步 與 舊版 將連結文字框架的屬性。 下列範例會建立文字方塊 （使用文字圖文框的矩形） 並將一些文字加入其中。 它再建立另一個文字方塊，並使文字流向為從第一個文字圖文框到第二個一起連結的兩個文字框架。
Set myTB1 = ActiveDocument.Shapes.AddTextbox _
(msoTextOrientationHorizontal, 72, 72, 72, 36)
myTB1.TextFrame.TextRange = _
"This is some text. This is some more text."
Set myTB2 = ActiveDocument.Shapes.AddTextbox _
(msoTextOrientationHorizontal, 72, 144, 72, 36)
myTB1.TextFrame.Next = myTB2.TextFrame
使用 ContainingRange 若要傳回的 Range 屬性 代表流程之間的連結的文字框架的整個本文物件。 下列範例會檢查 TextBox 3 的文字和連結至 TextBox 3 的其他任何文字的拼字。
Set myStory = ActiveDocument.Shapes("TextBox 3") _
.TextFrame.ContainingRange
myStory.CheckSpelling
方法
| 名稱 |
|---|
| BreakForwardLink |
| DeleteText |
| ValidLinkTarget |
屬性
請參閱
支援和意見反應
有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。