Question

将指定文本插入某一区域或选定内容的后面。应用本方法可以扩展原区域或选定内容，使其包含新文本。

expression.InsertAfter(Text)

expression 必需。该表达式返回一个 Selection 或 Range 对象。

Text String 类型，必需。要插入的文本。

说明

使用 Visual Basic Chr 函数和 InsertAfter 方法，可以插入引号、制表符和不间断连字符等。还可以使用下列 Visual Basic 常量：vbCr、vbLf、vbCrLf 和 vbTab。

如果应用本方法的区域或选定内容是一个完整的段落，则在段落结束标记之后插入文本（插入文本将出现在下一段开头）。如要在段尾插入文本，可先确定结束点，再从该位置减去 1（因段落标记是一个字符），如下例所示：

Set doc = ActiveDocument
Set rngRange = _
 doc.Range(doc.Paragraphs(1).Start, _
 doc.Paragraphs(1).End - 1)
rngRange.InsertAfter _
 " This is now the last sentence in paragraph one."

然而，如果段尾的区域或选定内容处于文档结尾处，Microsoft Word 将在最后的段落标记前插入文本，而不是在文档结尾创建一个新段落。

同样，如果区域或选定内容是书签，Word 将插入指定文本，而不会扩展区域、选定内容或书签，使其包含新文本。

示例

本示例在活动文档结尾插入文本。Content 属性返回一个 Range 对象。

ActiveDocument.Content.InsertAfter "end of document"

本示例在选定内容末尾插入文本，然后将选定内容折叠为插入点。

With Selection
 .InsertAfter "appended text"
 .Collapse Direction:=wdCollapseEnd
End With

本示例将输入框中的文本作为活动文档的第二段插入文档中。

response = InputBox("Type some text")
With ActiveDocument.Paragraphs(1).Range
 .InsertAfter "1." & Chr(9) & response
 .InsertParagraphAfter
End With