- Code: Select all Expand viewCollapse view
`matrix = Array(_`

...

Array ("überragend"," outstanding "),_

...

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) 'Note the & places the found text back

oReplace.SearchRegularExpression=False 'Use regular expressions

oReplace.SearchCaseSensitive = False

oReplace.searchAll=True 'Do the entire document

oDoc.replaceAll(oReplace)

Next i