分享一个自己用正则表达式写的关键词自动加色高亮函数。
Function BoldWord(strContent,word)
If word="" Then
BoldWord = strContent
Exit Function
End IF
dim objRegExp
Set objRegExp=new RegExp
objRegExp.IgnoreCase =true
objRegExp.Global=True
  
objRegExp.Pattern="(" & word & ")"
strContent=objRegExp.Replace(strContent,"<font color=""#FF0000""><b>$1</b></font>" )  
  
Set objRegExp=Nothing
BoldWord=strContent
End Function
函数参数说明
strContent：字符串文字
word：要高亮显示的关键词