【分享成果，随喜正能量】别跟往事过不去，别跟自己过不去，别跟遭遇过不去，别跟眼泪过不去，学会适应生活的变化，学会适应生活的变迁。。
《VBA之Word应用》，是我推出第八套教程，教程是专门讲解VBA在Word中的应用，围绕“面向对象编程”讲解，首先让大家认识Word中VBA的对象，以及对象的属性、方法，然后通过实例让大家感受到Word VBA 的妙处。本套教程共三册十六章，今日内容第七章 “Word中的Selection对象”,第4节：利用FIND进行查找及利用TEXT添加信息
大家好，我们继续Selection对象属性的讲解，在上一节我们学习了Selection对象的Font属性、HeaderFooter属性及Information属性。这节我们将学习到Selection对象的Find属性、Text属性及Words属性。
1 Selection.Find属性这个属性返回一个 Find 对象，该对象包含查找操作所需的条件。
语法：expression.Find
其中expression为一个代表Selection对象的变量。
- 如果查找操作成功，选定内容就会更改。
这个属性返回或设置指定的选定内容中的文本。
语法：expression.Text
其中expression为一个代表Selection对象的变量。
- Text 属性返回选定内容的格式文本。 当设置此属性时，将替换该区域或所选内容的文本
这个属性返回一个Words集合，该集合代表选定内容中的所有单词。
语法：expression.Words
其中expression为一个代表Selection对象的变量。
- 文档中的标点符号和段落标记包括在 Words 集合中。
下面我们将利用一个实例来讲解本节属性的利用方法，这节的实例中，我们首先利用FIND属性进行一个词语的查找，查找到后提示一些信息给用户，如果没有查找到，则提示给用户没有查找到。然后我们新建一个文档，利用TEXT属性向这个文档中循环添加信息。
我们先看代码：
Sub mynzC()
'利用FIND查找“闰土”，从光标之处开始查找，查找到后选中。
With Selection.Find
'查找的方向向下
.Forward = True
'取消在查找或替换操作中所指定文本的文本格式和段落格式。
.ClearFormatting
'查找操作查找仅完整单词，而不是较长单词的一部分的文本
.MatchWholeWord = True
'查找时不区分大小写
.MatchCase = False
'到达文档末尾时，继续从文档开头进行搜索。
.Wrap = wdFindContinue
'运行指定的查找操作。如果查找成功，则返回 True。
.Execute FindText:="闰土"
End With
If Selection.Find.Execute = True Then
'提示给用户查找到的内容
MsgBox Selection.Text & " 词语数为：" & Selection.Words.Count
Else
MsgBox "没有找到"
End If
'新建一个文档，在这个文档中输入些自动化处理的文字
Documents.Add
For i = 1 To 50
Selection.Text = "Line" & i & Chr(13)
'光标下移
Selection.MoveDown Unit:=wdParagraph, Count:=1
Next
End Sub
代码截图：
代码解读：（略）
代码的运行效果：
今日内容回向：
1 Word中Selection对象的Find属性、Text属性及Words属性的意义是什么？
2 如何利用VBA显示所查找的内容，及利用text向文档中添加信息？
本讲内容参考程序文件：Doc 007文档.docm
我20多年的VBA实践经验，全部浓缩在下面的各个教程及应用工具中：
【分享成果，随喜正能量】心若年轻，岁月不老。一个人，是在烟熏火燎之后，仍旧能保持爱臭美的秉性。花谢了，请修剪好枝叶；叶落了，请保持树的骨感！。
,
