将指定文本插入某一区域或选定内容的后面。应用本方法可以扩展原区域或选定内容,使其包含新文本。
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