Find/Replace Multiple Words

[singeredel]

How can this find/replace be modified to enable search and replace of
multiple words without repeating this code for each word to be replaced (if
more efficient)?

Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "{DOI}"
.Replacement.Text = DOI$
.Forward = True
.Wrap = wdFindContinue
.MatchCase = True
End With
Selection.Find.Execute Replace:=wdReplaceAll

Thank you!

 

[Jezebel]

Dim pFind as string
Dim pReplace as string
Dim pIndex as long

For pIndex = 1 to whatever
pFind = Choose(pIndex, "Word 1", "Word 2", ....)
pReplace = Choose(pIndex, "New word 1", "New word 2", ....)

With Selection.Find
.Text = pFind
.Replacement.Text = pReplace

:
End with
Next

 

[Klaus Linke]

Or define a macro that takes two string arguments for the search text and replacement text, and call that?

Klaus