自动完成Word 日常任务

核心提示： 11.7.5.3 在文档中插入文本使用InsertBefore 方法可以在 Selection 或 Range 对象前后插入文字，下面的代码在活动文档结尾处插入文字，自动完成Word 日常任务(4)，ActiveDocument.Content.InsertAfter Text:=&quo

11.7.5.3 在文档中插入文本

使用InsertBefore 方法可以在 Selection 或 Range 对象前后插入文字。下面的代码在活动文档结尾处插入文字。

ActiveDocument.Content.InsertAfter Text:=" the end." 下面的代码在所选内容前插入文字：

Selection.InsertBefore Text:="new text "

在使用了InsertBefore 或 InsertAfter 方法之后，Range 或 Selection 会扩展并包含新的文本。使用 Collapse 方法可以将 Selection 或 Range 折叠到开始或结束位置。

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

如果应用本方法的区域或所选内容是一个完整的段落，则在段落结束标记之后插入文本，插入文本将出现在下一段开头。如要在段尾插入文本，可先确定结束点，再从该位置减去 1（因段落标记是一个字符），如下面的代码所示：

Set Doc = ActiveDocument
Set myRange =.
　　
Doc.Range （ Start:=Doc.Paragraphs
（1）.Range.End - 1, _
End:=Doc.Paragraphs（1）.Range.End - 1）
myRange.InsertAfter " the end."

11.7.5.4 修改文档的某一部分

Visual Basic 包含一些对象，可用这些对象修改下面的文档元素：字符、单词、句子、段落和节。表11-4 包含了与这些文档元素对应的属性和这些属性返回的对象。

使用这些属性时不带索引序号，会返回一个相同名称的集合对象。例如，Paragraphs 属性返回 Paragraphs 集合对象。但如果通过索引序号识别集合中的一项，就只会返回上表中第二列中的对象。例如，Words（1） 返回一个 Range 对象。在有了一个 Range 对象之后，可以使用这个区域的任何属性或方法修改该 Range 对象。例如，下面的代码将所选内容的第一个单词复制到剪贴板上。