'关键字突出显示 以下示例为红色 根据需要修改。
'str 输出内容
'keyword 需要突显的关键字
Function HighLigth(Str,keyword)
If keyword="" Then
HighLigth=Str
Exit Function
End IF
Dim re
Set re=new RegExp
re.IgnoreCase =True
re.Global=True
re.Pattern="("&keyword&")"
HighLigth=re.Replace(Str,"<font color=""red"">$1</font>")
End Function