Selection.TextRange 属性 (Publisher)

返回一个 TextRange 对象，该对象代表附加到形状的文本以及用于操作文本的属性和方法。

语法

表达式。TextRange

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

示例

下面的示例将当前出版物中第一个形状的文字框架中添加文本，然后设置新文字的格式。 本示例假定当前出版物的第一页上至少有一个形状。

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