圧(Windows Script 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