Highlight patterns within strings

'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...

Highlightpatternswithinstrings