Microsoft Word 对象

Microsoft Word 对象(9)
Selection. Words (1). Copy

在Paragraphs集合以及Sections集合中的集合项分别是Paragraph对象和Section对象，而不是Range对象。但是，在Paragraph对象和Section对象中都可以使用Range属性(它返回一个Range对象)。以下的示例将获得文档中的第一段复制到剪贴板中。

ActiveDocument. Paragraphs(1). Range. Copy

上述表格中所有的文档元素属性都可以在Document对象、Selection对象以及Range对象中使用，如以下三个示例所示。

本例设置活动文档中第一个单词的大小写。
ActiveDocument. Words(1). Case = wdUpperCase

本例设置选中的第一节的下边距为0.5英寸。
Selection.Sections(1). PageSetup. BottomMargin = InchesToPoints(0.5)

本例设置活动文档中的文字为两倍行距(Content属性返回一个Range对象，该对象表示主文档构成部分)。
ActiveDocument. Content. ParagraphFormat. Space2

修改一组文档元素

要修改由一组文本元素(字符、单词、句子、段落或节)构成的范围，可以创建一个包含文档元素的Range对象。随同Range对象使用Start和End属性，用户可以新建一个Range对象，该对象引用了一组文档元素。以下的示例创建了一个Range对象(myRange)，该对象引用了活动文档中的前三个单词，然后将这些单词的字体改为Arial。

Set Doc = ActiveDocument

Set myRange = Doc.Range (Start :=Doc. Words(1). Start, End :=Doc. Words(3). End)

myRange. Font. Name = "Arial"

以下的示例创建了一个Range对象，该对象起始于第二段的开头，到第四段之后结束。

Set myDoc = ActiveDocument

Set myRange = myDoc. Range (Start :=myDoc. Paragraphs(2). Range. Start, _

End :=myDoc. Paragraphs(4). Range. End)

以下的示例创建了一个Range对象(aRange)，该对象起始于第二段的开头，到第三段之后结束。ParagraphFormat属性用来访问诸如SpaceBefore和SpaceAfter这样的设置段落格式的属性。

Set Doc = ActiveDocument

Set aRange = Doc. Range (Start :=Doc. Paragraphs(2). Range. Start, _

End :=Doc. Paragraphs(3). Range. End)

With aRange. ParagraphFormat

.Space1

.SpaceAfter = 6

.SpaceBefore = 6

End With

返回或设置范围中的文字

可以使用Text属性来返回或设置一个Range对象中的内容。以下的示例返回了活动文档中的第一个单词。

strText = ActiveDocument. Words(1). Text