title: "Find and Replace" multiple words in Word from Excel list
body: <p>I have created a find and replace Macro in MS Word that replaces word A with B. Ok, but now I have 50 words that need replacing. That means I will have to create a new entry for each word, which will take FOREVER. Plus a few weeks from now I will have to add more words to be replaced.</p>
  
  <p>Is there a way to link a word list via excel, say words in column 1 are the words I want replaced with the matching words in column 2?</p>
  
  <p>Here's what I have so far.</p>
  
  <pre><code>Sub Macro5()
  '
  ' Macro5 Macro
  '
  '
      Selection.Find.ClearFormatting
      Selection.Find.Replacement.ClearFormatting
      With Selection.Find
          .Text = "apples"
          .Replacement.Text = "all the apples"
          .Forward = True
          .Wrap = wdFindContinue
          .Format = False
          .MatchCase = False
          .MatchWholeWord = False
          .MatchWildcards = False
          .MatchSoundsLike = False
          .MatchAllWordForms = False
      End With
      Selection.Find.Execute Replace:=wdReplaceAll
      Selection.Find.Execute
  End Sub
  </code></pre>