InsertBefore 方法

       

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

expression.InsertBefore(Text)

expression   必需。该表达式返回一个 RangeSelection 对象。

Text   String 类型,必需。要插入的文字。

说明

使用 Visual Basic Chr 函数和 InsertBefore 方法,可以插入引号、制表符和不间断连字符等。还可以使用下列 Visual Basic 常量:vbCrvbLfvbCrLfvbTab

示例

本示例在选定内容之前插入“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