收藏一个代码(关键字变红)

Function setRedWord(strContent,strKeyword) 
Dim myRegExp
Set myRegExp=new RegExp 
myRegExp.IgnoreCase =True 
myRegExp.Global=True 

Dim ArrayKeyword,i
ArrayKeyword = split(strKeyword," ")
For i=0 to UBOUND(ArrayKeyword)
    myRegExp.Pattern="(" & ArrayKeyword(i) & ")" 
    strContent=myRegExp.Replace(strContent,"<font color=""#FF0000"">$1</font>" ) 
Next
Set myRegExp=Nothing 
setRedWord=strContent