用正则表达式突出显示字符串中查询到的单词的函数

Function BoldWord(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
    BoldWord=strContent
End Function
引用本页地址：http://www.yongfa365.com/item/44407ae163fbdeb2.html