自动完成Word 日常任务

核心提示： 11.7.5.1 从文档返回文本使用Text 属性可以返回Range 或 Selection 对象中的文本，下面的代码选定下一个格式设为【标题1】样式的段落，自动完成Word 日常任务(3)，然后通过 MsgBox 函数显示 Text 属性的内容，With Selection.Find.C

11.7.5.1 从文档返回文本

使用Text 属性可以返回Range 或 Selection 对象中的文本。下面的代码选定下一个格式设为【标题1】样式的段落。然后通过 MsgBox 函数显示 Text 属性的内容。

With Selection.Find
.ClearFormatting
.Style = wdStyleHeading1
.Execute FindText:="", Format:=True, Forward:=True,
Wrap:=wdFindStop
If .Found = True Then MsgBox Selection.Text
End With

下面的指令返回选定文本：

strText = Selection.Text

下面的代码返回活动文档的第一个单词。Words 集合中的每一项是一个 Range 对象，该对象代表一个单词。

aFirst = ActiveDocument.Words（1）.Text MsgBox aFirst

下面的代码返回活动文档第一个书签的相关文本。

If ActiveDocument.Bookmarks.Count >= 1 Then
bookText = ActiveDocument.Bookmarks（1）.Range.Text
MsgBox bookText
End If

11.7.5.2 选定文档中的文本

使用 Select 方法可以选定文档中的一项。Select 方法对许多对象都是有效的，例如 Bookmark、Field、Range 和 Table 对象。下面的代码选定活动文档中的第一张表格。

ActiveDocument.Tables（1）.Select

下面的代码选定活动文档中的第一个域。

ActiveDocument.Fields（1）.Select

下面的代码选定活动文档中的前四个段落。Range 方法用来创建一个 Range 对象，该对象引用前四个段落。然后将 Select 方法应用于 Range 对象。

Set myRange = ActiveDocument.Range
（ Start:=ActiveDocument.Paragraphs （ 1 ） .Range.Start, _
End:=ActiveDocument.Paragraphs（4）.Range.End）
myRange.Select