Word VBA教程:InsertAfter方法

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

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 将插入指定文本,而不会扩展区域、选定内容或书签,使其包含新文本。

VBA示例

本示例在活动文档结尾插入文本。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

Word VBA教程

Word VBA参考教程:目录1 Word VBA参考教程:目录2
Word VBA参考教程:目录3 Word VBA参考教程:目录4
Word VBA参考教程:目录5 Word VBA参考教程:目录6
Word VBA参考教程:目录7 Word VBA参考教程:目录8
Word VBA参考教程:目录9 Word VBA参考教程:目录10
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号