自动完成Word 日常任务

核心提示： 下面的代码创建一个 Range 对象（aRange），该对象从第二段的开头开始，自动完成Word 日常任务(6)，到第三段之后结束，Set Doc = ActiveDocumentSet myRange = Doc.Range （ Start:=Doc.Paragraphs（2）.Rang

下面的代码创建一个 Range 对象（aRange），该对象从第二段的开头开始，到第三段之后结束。

Set Doc = ActiveDocument
Set myRange = Doc.Range （ Start:=Doc.Paragraphs
（2）.Range.Start, _
End:=Doc.Paragraphs（3）.Range.End）

11.7.5.5 判定是否选定某一文本

Selection 对象的 Type 属性返回有关所选内容的信息。如果所选内容是插入点，则下面的代码显示一条信息。

If Selection.Type = wdSelectionIP Then MsgBox "Nothing is selected"

11.7.5.6 折迭所选内容或范围

使用 Collapse 方法可以将 Selection 或 Range 对象折迭到开始或结束位置。下面的代码在所选内容的开头将所选内容折叠为一个插入点。

Selection.Collapse Direction:=wdCollapseStart

下面的代码将 myRange 对象折叠到结束位置（在第一个单词之后）。

Set myRange = ActiveDocument.Words（1）

myRange.Collapse Direction:=wdCollapseEnd

11.7.5.7 扩展所选内容或范围

下面的代码使用 MoveEnd 方法将所选内容的结尾向前扩展以多包含三个单词。MoveLeft、MoveRight、MoveUp 和 MoveDown 方法也可以用来扩展 Selection 对象。

Selection.MoveEnd Unit:=wdWord, Count:=3

下面的代码使用 MoveEnd 方法扩展 oRange，以包含活动文档的前三个段落。

Set oRange = ActiveDocument.Paragraphs（1）.Range

oRange.MoveEnd Unit:=wdParagraph, Count:=2

11.7.5.8 修改文字

通过更改某一范围中的内容可更改现有的文字。下面的指令通过将 Text 属性设置为"good "，修改活动文档的第一个单词。