Publisher) (TextRange.Text 属性

返回或设置表示文本范围或艺术字形状中的文本的 字符串 。 读/写。

语法

表达式。文本

表达 一个代表 TextRange 对象的变量。

示例

下面的示例将一个矩形添加到活动出版物中，然后向其添加文字。

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 支持和反馈，获取有关如何接收支持和提供反馈的指南。