Code: Select all
oReplace = oDoc.createReplaceDescriptor()
For i= Lbound(matrix,1) To Ubound(matrix,1)
oReplace.SearchString = matrix(i)(0) 'Regular expression. Match any text
oReplace.ReplaceString = matrix(i)(1)
'msgbox ( matrix(i)(0))
oReplace.SearchRegularExpression=False 'Use regular expressions
oReplace.SearchCaseSensitive = False
'oReplace.searchStyles=True 'We want to search styles
oReplace.searchAll=True 'Do the entire document
How about not replacing if foo is entirely red or just part of it red ?