自动完成Word 日常任务

核心提示： Selection.Words（1）.CopyParagraphs 和 Sections 集合中的项是该集合的单个成员，而 Range 对象却不是如此，自动完成Word 日常任务(5)，但 Range 属性（返回 Range 对象）对 Paragraph 和 Section 对象都是有效的

Selection.Words（1）.Copy

Paragraphs 和 Sections 集合中的项是该集合的单个成员，而 Range 对象却不是如此。但 Range 属性（返回 Range 对象）对 Paragraph 和 Section 对象都是有效的。例如，下面的代码将活动 文档的第一个段落复制到剪贴板上。

ActiveDocument.Paragraphs（1）.Range.Copy

在表11-4 中所有文档元素属性对 Document、Selection 和 Range 对象都是有效的。下面的代码表明了如何按照顺序引用 Document、Selection 和 Range 对象的这些属性。

下面的代码设置活动文档第一个单词的大小写。

ActiveDocument.Words（1）.Case = wdUpperCase

下面的代码将当前节的下边距设置为 0.5 英寸。

Selection.Sections （ 1 ） .PageSetup.BottomMargin =

InchesToPoints（0.5）

下面的代码将活动文档的字符间距设为两倍（Content 属性返回一个 Range 对象）。

Set Doc = ActiveDocument
Set myRange = Doc.Range（Start:=Doc.Words（1）.Start,
_
End:=Doc.Words（3）.End）
Set Doc = ActiveDocument
Set myRange = Doc.Range （ Start:=Doc.Paragraphs
（2）.Range.Start, _
End:=Doc.Paragraphs（3）.Range.End）
　　ActiveDocument.Content.ParagraphFormat.Space2

修改一组文档元素：

要修改由一组文档元素（字符、单词、句子、段落或节）组成一定区域的文字，就需要创建一个 Range 对象。Range 方法根据开始和结束位置可创建 Range 对象。例如，下面的指令创建一个 Range 对象，该对象引用活动文档的前十个字符。

Set myRange = ActiveDocument.Range（Start:=0, End:=10）使用 Range 对象的 Start 和 End 属性，可以创建一个新的Range 对象，该对象引用一组文档元素。例如，下面的指令创建一个 Range 对象（myRange），该对象引用活动文档的前三个单词。