通过

Selection.InsertAfter 方法 (Word)

  • 项目

将指定文本插入范围或所选内容的末尾。

语法

expression。 InsertAfter( _Text_ )

expression 是必需的。 表示 Selection 对象的变量。

参数

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

备注

使用此方法后，所选内容将扩展以包含新文本。

可以通过使用 Visual Basic Chr 函数与 新段落 方法插入引号、 制表符等不间断连字符的字符。 您还可以使用下面的 Visual Basic 常量: vbCr 、 vbLf 、 vbCrLf 和 vbTab 。

如果对引用整个段落的所选内容使用此方法，则在末段标记之后插入文本（插入文本将出现在下一段落的开头）。 要在段尾插入文本，请先确定终点，再从该位置减去 1（因为段落标记是一个字符），如以下示例所示。

ActiveDocument.Range( _ 
 ActiveDocument.Paragraphs(1).Range.Start, _ 
 ActiveDocument.Paragraphs(1).Range.End - 1) _ 
 .Select 
 
Selection.InsertAfter _ 
 " This is now the last sentence in paragraph one."

然而，如果所选内容以一个段落标记结尾，而该段落标记正好又是文档的末尾，则 Microsoft Word 在末段标记前插入文本，而不是在文档末尾创建一个新段落。 同样，如果所选内容是书签，则 Word 会插入指定文本，但是不会扩展所选内容或书签使其包含新文本。

示例

以下示例在所选内容的末尾插入文本，然后将所选内容折叠到插入点。

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

另请参阅

Selection 对象

支持和反馈

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