原理：将查询到的单词str 替换成带颜色的：<font color="#ff0000">单词str</font>
'用正则表达式突出显示字符串中查询到的单词的函数
function key_red(strcontent,word)
dim objregexp
set objregexp=new regexp
objregexp.ignorecase =true
objregexp.global=true
objregexp.pattern="("&word&")"
strcontent=objregexp.replace(strcontent,"<font color=""#ff0000"">$1</font>" )
set objregexp=nothing
key_red=strcontent
end function
