.版本 2 .子程序 网页关键字查找, 整数型 .参数 网页对象, 对象 .参数 关键字, 文本型 .局部变量 oDocument, 对象, , , 网页文档对象 .局部变量 oBody, 对象 .局部变量 oRange, 对象 .局部变量 sTag, 文本型, , , 高亮开始标签 .局部变量 eTag, 文本型, , , 高亮结束标签 .局部变量 fhzhi, 整数型 ' ↓取网页文档对象 ' oDocument ＝ WebBrowser1.GetDocument () fhzhi ＝ 0 oDocument ＝ 网页对象 oBody ＝ oDocument.读对象型属性 (“body”, ) ' ↓定义高亮样式 sTag ＝ “<B style='COLOR: #ffff66; BACKGROUND-COLOR: #ff0000'>” eTag ＝ “</B>” .如果真 (oBody.是否为空 () ＝ 假) oRange ＝ oBody.对象型方法 (“createTextRange”, ) .判断循环首 (oRange.逻辑方法 (“FindText”, 关键字)) oRange.方法 (“pasteHTML”, sTag ＋ oRange.读文本属性 (“Text”, ) ＋ eTag) oRange.方法 (“MoveStart”, “character”, 1) fhzhi ＝ 1 .判断循环尾 () .如果真结束 返回 (fhzhi)