代码如下:‘Replaces pattern with highlighted replacement (using style) and preserves case Public Function highlight(strText, strFind) Dim objRegExp, i, strHighlight ‘Split the search terms into an array Dim arrFind arrFind = Split(strFind, ” “) ‘Initialize the regular expr