Word) (TextFrame 对象
表示 形状 对象中的文字框架。 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 属性返回一个 范围 对象,表示整篇文章的链接的文本框架之间的流动。 下面的示例检查三个文本框的文本和链接到文本框 3 的任何其他文本的拼写。
Set myStory = ActiveDocument.Shapes("TextBox 3") _
.TextFrame.ContainingRange
myStory.CheckSpelling
有关于 Office VBA 或本文档的疑问或反馈? 请参阅 Office VBA 支持和反馈,获取有关如何接收支持和提供反馈的指南。