Microsoft Word 对象

Microsoft Word 对象(12)
Range2 = Range1

这两个范围(Range2和Range1)包含有相同的内容，但是它们可能指向文档中的不同位置，或者干脆是不同的文档。

使用Duplicate属性

以下的示例创建了一个新复制的Range对象，Range2，该对象有着和Range1一样的起始位置、终止位置以及文字内容。

Set Range2 = Range1. Duplicate

如果改变了Range1的起始位置或是终止位置，这种改变并不会影响到Range2，反之亦然。但是，因为这两个范围指向文档的相同位置，改变一个范围中的文字内容也会同时改变另一个范围的文字内容。

运用文档构成部分

一个文档构成部分是文档中的一个区域，该区域中的文字区别于文档中的其他区域。例如，如果一个文档包含了正文文字、脚注和页眉，则该文档就包含了文档正文部分、脚注部分和页眉部分。

可以使用StoryType属性来返回指定范围、选定内容或书签的文档构成部分。如果在脚注部分中包含了选定内容，那么下例将关闭活动窗口中的脚注窗格。

ActiveWindow. View. Type = wdNormalView

If Selection. StoryType = wdFootnotesStory Then ActiveWindow. ActivePane. Close

StoryRanges集合包含了一个文档中每种有效的文档构成部分类型的第一个过程部分范围。可以使用NextStoryRange方法来返回以后的文档构成部分。以下的示例搜索活动文档中的每个文档过程部分来找出文字“Microsoft Word”。该示例也将它每次找到的文字全部设置为斜体。

For Each myStoryRange In ActiveDocument. StoryRanges

myStoryRange. Find. Execute FindText :="Microsoft Word", Forward :=True

While myStoryRange. Find. Found

myStoryRange. Italic = True

myStoryRange. Find.Execute FindText :="Microsoft Word", _

Forward :=True, Format :=True

Wend

While Not (myStoryRange. NextStoryRange Is Nothing)

Set myStoryRange = myStoryRange. NextStoryRange

myStoryRange. Find.Execute FindText :="Microsoft Word", Forward :=True

While myStoryRange. Find. Found

myStoryRange. Italic = True

myStoryRange. Find.Execute FindText :="Microsoft Word", _

Forward :=True, Format :=True

Wend

Wend

Next myStoryRange