Microsoft Word 对象

Microsoft Word 对象(13)


运用Selection对象

当用户使用Word中的某个文档时，通常会先选择文字，然后再执行一项操作，比如设定以有文字的格式，或是键入新文字。在Visual Basic中，通常没有必要在修改文字之前先选定该文字；而是创建一个表示文档特定部分的Range对象并对其进行操作。但是，当用户想要自己的代码对选定内容作出响应或是改变选定内容，就可以通过Selection对象来完成任务。

可以使用Selection属性来返回Selection对象。在文档窗口的每个窗格中只能有一个Selection对象，在任何时刻，也只能有一个活动的Selection对象。选定内容可以包含文档的一块区域，也可以被折叠到一个插入点。以下的示例改变了选定内容中各个段的段落格式。

Selection. Paragraphs. SpaceBefore = InchesToPoints (0.25)

Selection属性可以在Application对象、Window对象和Pane对象中使用。如果随同Application对象使用Selection属性，则该Selection对象表示活动的选定内容。

Selection. InsertAfter Text :="Next Text"

也可以随同一个Window对象或Pane对象使用Selection属性来返回一个在特定窗口或窗口窗格中Selection对象。以下的示例随同Window对象使用Selection属性，在文档窗口“Document2”中插入文字。

Windows ("Document2"). Selection.InsertAfter Text :="New Text"

以下的示例随同Pane对象使用Selection属性，在主页眉窗格中插入文字。

With ActiveWindow

.View. Type = wdPageView

.View. SeekView = wdSeekPrimaryHeader

.ActivePane. Selection. InsertAfter Text :="Header"

End With

在使用InsertAfter方法或InsertBefore方法之后，选定内容随之扩大，包括了新的文字。但是，用户也可以使用Collapse方法将选定内容折叠到它的起始或终止位置。以下的示例在选定内容的文字之后插入单词“Hello”，任何将选定内容折叠到单词“Hello”之后的插入点。

Selection. InsertAfter Text :="Hello"

Selection. Collapse Direction :=wdCollapseEnd

移动和扩展选定内容

用户可以通过几种方法来移动或扩展由Selection对象所表示的选定内容(例如，Move和MoveEnd)。以下的示例将选定内容移动到下一段的开头。

Selection. MoveDown Unit :=wdParagraph, Count :=1, Extend :=wdMove

用户也可以通过改变Selection对象的Start属性及End属性的值，或者通过MoveStart和MoveEnd方法来移动或扩展选定内容。以下的示例通过把终止位置移动到段尾来对选定内容进行扩展。

Selection. MoveEnd Unit :=wdParagraph, Count :=1

因为在一个文档窗口或窗格中只能有一个选定内容，用户也可以通过选定另一个对象来移动选定内容。可以使用Select方法，选择文档的一项。在使用Select方法之后，就可以使用Selection属性返回一个Selection对象。以下的示例选定了活动文档中的第一个单词，然后把该单词变为“Hello”。

ActiveDocument. Words(1). Select

Selection. Text = "Hello "

用户也可以通过GoToNext方法、GoToPrevious方法或GoTo方法来移动选定内容。以下的示例将选定内容移动到文档中的第四行。