在指定的选定内容或区域前插入指定文字。在插入文字之后扩展选定内容或区域,以包含新文字。如果选定内容或区域是书签,则书签也会扩展,以包含新文字。
expression.InsertBefore(Text)
expression 必需。该表达式返回一个 Range 或 Selection 对象。
Text String 类型,必需。要插入的文字。
使用 Visual Basic Chr 函数和 InsertBefore 方法,可以插入引号、制表符和不间断连字符等。还可以使用下列 Visual Basic 常量:vbCr、vbLf、vbCrLf 和 vbTab。
本示例在选定内容之前插入“Hamlet”(包括引号),然后折叠选定内容。
With Selection
.InsertBefore Chr(34) & "Hamlet" & Chr(34) & Chr(32)
.Collapse Direction:=wdCollapseEnd
End With
本示例在活动文档的开始插入“Introduction”,并将其作为一个单独段落。
With ActiveDocument.Content
.InsertParagraphBefore
.InsertBefore "Introduction"
End With
本示例将 FontNames 集合中所有的字体名称插入到新文档。
Documents.Add
For Each aFont In FontNames
With Selection
.InsertBefore aFont
.Collapse Direction:=wdCollapseEnd
.TypeParagraph
End With
Next aFont