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

在windows script 5.5下调试通过
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