VBAd的方法
OlOleContainer1.CreateObjectFromFile ('D:/aaa.doc', False);
OleContainer1.DoVerb (ovInPlaceActivate);
WordApplication1.ConnectTo(IDISPATCH (OleContainer1.OleObject.Application) as _Application);//用COM控制被嵌入到OleContainer中的WORD
WordDocument1.Range.Find.Execute( FindText, MatchCase, MatchWholeWord,
MatchWildcards, MatchSoundsLike, MatchAllWordForms, GoForward,
Wrap, WordFormat, ReplaceWith, Replace );
delphi5.0中find.execute的定义和参数说明如下：
function Execute(var FindText: OleVariant; var MatchCase: OleVariant;
var MatchWholeWord: OleVariant; var MatchWildcards: OleVariant;
var MatchSoundsLike: OleVariant; var MatchAllWordForms: OleVariant;
var Forward: OleVariant; var Wrap: OleVariant; var Format: OleVariant;
var ReplaceWith: OleVariant; var Replace: OleVariant): WordBool; safecall;
FindText 1、要搜索的文字。用空字符串（“”），将只搜索格式。
指定相应的字符代码，可以搜索特殊的字符。例如，
“ ^p”相对于一个段落标记，而“ ^t”相对于制表符。
有关可用的特殊字符的列表，请参阅可进行查找和替换
操作的特殊字符与文档元素示例。
2、如果 MatchWildcards 为 True，则可以包含通配符，
以及其他高级搜索条件。例如，“ *(ing) ” 将查
找以“ing”结尾的所有单词。详细内容，请参阅通配符搜索示例。
3、要搜索符号字符，可键入一个“ ^ ”符号，一个零（0），然后是
符号字符的代码。例如，在 Windows 中，“ ^0151”对应于一个长
破折号
MatchCase 如果查找区分大小写，则本参数为 True。相应于“编辑”菜单
“查找并替换”对话框中的“区分大小写”复选框。
MatchWholeWord 如果只查找整个单词而不是单词的一部分，则本参数为 True。相
应于“编辑”菜单“查找并替换”对话框中的“全字匹配”复选框。
MatchWildcards 如果查找文字包含特殊的搜索操作符，则本参数为 True。相应于
“编辑”菜单“查找并替换”对话框中的“使用通配符”复选框。
MatchSoundsLike 如果查找包括与查找文字发音相近的单词，则本参数为 True。
相应于“编辑”菜单“查找并替换”对话框中的“同音”复选框。
MatchAllWordForms 如果查找文字的所有形式（例如，“ sit” 将包含“sitting”
和“sat”），则本参数为 True。相应于“编辑”菜单“查找并
替换”对话框中的“查找单词的各种形式”复选框。
Forward 如果向下（向文档尾部）搜索，则本参数为 True。
Wrap 如果从不是文档开头的地方开始搜索，并且达到文档尾部时
（如 Forward 设置为 False，则相反），本参数控制接下来的操作。
当在所选内容或范围中没有找到搜索文字时，本参数也控制接下来
的操作。可以是下列 WdFindWrap 常量之一：
常量 说明
wdFindAsk 在搜索完所选内容或者范围之后，Word 显示一条消息，询问是否搜
索文档的其他部分。
wdFindContinue 在到达搜索范围的开始或者结尾时，继续进行查找操作。
wdFindStop 在到达搜索范围的开始或者结尾时，停止进行查找操作。
Format 如果本参数为 True，则查找带格式的文本或者只查找格式
而不查找文本。
ReplaceWith 替换文字。要删除由 Find 参数指定的文字，可使用空字符串
（“”）。与 Find 参数相似，本参数也可以指定特殊的字符和
高级搜索条件。要指定一个图形对象或者其他非文本项作为替换
内容，可将这些项放到剪贴板上，然后将 ReplaceWith 指定为“ ^c”。
Replace 指定执行替换的次数：一次、所有或者不替换。可以是下列
WdReplace 常量之一：wdReplaceAll、wdReplaceNone 或 wdReplaceOne。
