TextRange.InsertAfter 方法 (Publisher)

返回一个 TextRange 对象，该对象代表追加到文本区域末尾的文本。

语法

表达式。InsertAfter (NewText)

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

参数

名称	必需/可选	数据类型	说明
NewText	必需	String	要插入的文本。

返回值

TextRange

示例

以下示例将 Microsoft Publisher 的内部版本号添加到当前出版物第一页上的第一个形状的末尾。 本示例假设指定的形状是文字框架而不是其他类型的形状。

Sub AppendText() 
 With ActiveDocument.Pages(1).Shapes(1) 
 .TextFrame.TextRange.InsertAfter _ 
 NewText:="Microsoft Publisher Build : " & Build 
 End With 
End Sub

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。