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），该对象引用活动文档的前三个单词。
下面的代码创建一个 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
Tag:Word教程，word2003教程,word2007教程，电脑教学 - Word教程