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
另请参阅
支持和反馈
有关于 Office VBA 或本文档的疑问或反馈? 请参阅 Office VBA 支持和反馈,获取有关如何接收支持和提供反馈的指南。