'在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,"$1" )

Set objRegExp=Nothing

BoldWord=strContent

End Function