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
11.7.5.3 在文档中插入文本
使用InsertBefore 方法可以在 Selection 或 Range 对象前后 插入文字。下面的代码在活动文档结尾处插入文字。
ActiveDocument.Content.InsertAfter Text:=" the end." 下面的代码在所选内容前插入文字：
Selection.InsertBefore Text:="new text "
在使用了InsertBefore 或 InsertAfter 方法之后，Range 或 Selection 会扩展并包含新的文本。使用 Collapse 方法可以将 Selection 或 Range 折叠到开始或结束位置。
利用InsertAfter 方法可将指定文本插入某一区域或所选内容的 后面。应用本方法可以扩展原区域或所选内容，使其包含新文本。
如果应用本方法的区域或所选内容是一个完整的段落，则在段落 结束标记之后插入文本，插入文本将出现在下一段开头。如要在段 尾插入文本，可先确定结束点，再从该位置减去 1（因段落标记是 一个字符），如下面的代码所示：
Set Doc = ActiveDocument
Set myRange = Doc.Range （ Start:=Doc.Paragraphs
（1）.Range.End - 1, _
End:=Doc.Paragraphs（1）.Range.End - 1）
myRange.InsertAfter " the end."
11.7.5.4 修改文档的某一部分
Visual Basic 包含一些对象，可用这些对象修改下面的文档元 素：字符、单词、句子、段落和节。表11-4 包含了与这些文档元素 对应的属性和这些属性返回的对象。
使用这些属性时不带索引序号，会返回一个相同名称的集合对 象。例如，Paragraphs 属性返回 Paragraphs 集合对象。但如果通 过索引序号识别集合中的一项，就只会返回上表中第二列中的对象。 例如，Words（1） 返回一个 Range 对象。在有了一个 Range 对象 之后，可以使用这个区域的任何属性或方法修改该 Range 对象。例 如，下面的代码将所选内容的第一个单词复制到剪贴板上。
Tag:Word教程，word2003教程,word2007教程，电脑教学 - Word教程