TextRange.InsertBefore 方法 (Publisher)

在指定文本区域的开头附加一个字符串。 返回一个代表附加文本的 TextRange 对象。 省略参数时，该方法返回一个在指定区域末尾的长度为零的字符串。

语法

表达式。InsertBefore (NewText)

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

参数

名称	必需/可选	数据类型	说明
NewText	必需	String	要插入的文字。 默认值为空字符串。

返回值

TextRange

示例

以下示例将 Microsoft Publisher 的内部版本号和段落分隔符添加到当前出版物第一页上的第一个形状的起始位置。 本示例假设指定的形状是文字框架而不是其他类型的形状。

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

支持和反馈

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