复制代码代码如下所示：
用高亮替换（使用样式）替换模式并保存实例
公共功能突出（strtext，strfind）
昏暗的objregexp，我strhighlight

将搜索项拆分为数组
昏暗的arrfind
arrfind =分裂（strfind，）

正则表达式对象的初始化执行搜索
昏暗的omatches，配
集oregexp = new RegExp

oregexp。全球= true'returns所有匹配的搜索词
oregexp.ignorecase = true'case不敏感

通过搜索词数组循环查找匹配项
我= 0，UBound（arrfind）
oregexp。模式= arrfind（我）'sets搜索模式的字符串
集omatches = oregexp。执行（strtext）执行搜索 / /
每一场比赛中omatches
构建用于突出显示结果的代码
strhighlight = match.value
下一个
用上面的代码替换搜索中的匹配项
strtext = oregexp取代（strtext，strhighlight）。
下一个

Highlight = strText

集objregexp =没有
端功能