Range.InsertAfter 方法 (Word)

在范围的末尾插入指定文本。

语法

expression。 InsertAfter( _Text_ )

expression 是必需的。 一个代表 Range 对象的变量。

参数

名称	必需/可选	数据类型	说明
Text	必需	String	要插入的文本。

备注

应用此方法之后，该范围将扩展，以包含新文本。

可以通过使用 Visual Basic Chr 函数与 新段落 方法插入引号、 制表符等不间断连字符的字符。 您还可以使用下面的 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 将插入指定的文本，但不会扩展范围或书签以包含新文本。

示例

本示例在活动文档的末尾插入文本。 内容 属性返回一个 Range 对象。

ActiveDocument.Content.InsertAfter "end of document"

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

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

另请参阅

Range 对象

支持和反馈

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