Question

在指定的选定内容或区域前插入指定文字。在插入文字之后扩展选定内容或区域，以包含新文字。如果选定内容或区域是书签，则书签也会扩展，以包含新文字。

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