其实，在word中已经提供了可以用作搜索的对象Find，在对象模型上也比较容易找到，对应的说明是这样的：该对象代表查找操作的执行条件。Find 对象的属性和方法与“替换”对话框中的选项一致。从模型上看，Find对象是Selection的成员，从示例代码来看似乎也是Range的成员，查找Range的属性，果然如此。于是修改上面的代码：
int
i
=
0
,iCount
=
0
;Word.Find wfnd;
if
(wd.Paragraphs
!=
null
&&
wd.Paragraphs.Count
>
0
)
{ iCount=wd.Paragraphs.Count; for(i=1;i<=iCount;i++) { wfnd=wd.Paragraphs[i].Range.Find; wfnd.ClearFormatting(); wfnd.Text=strKey; if (wfnd.Execute(ref MissingValue,ref MissingValue, ref MissingValue,ref MissingValue, ref MissingValue,ref MissingValue, ref MissingValue,ref MissingValue, ref MissingValue,ref MissingValue, ref MissingValue,ref MissingValue, ref MissingValue,ref MissingValue, ref MissingValue)) { MessageBox.Show("文档中包含指定的关键字！","搜索结果",MessageBoxButtons.OK); break; } }}