VBA - The Word Working Partner - Part 3

~~~~~~~~~~~~~~~~~~~~~~~~~
With Selection.Find
  .Text = "aaa" ' text to be found
  .Replacement.Text = "xxx" ' replacement text
  .Forward = True
  .Wrap = wdFindContinue
  .Format = False
  .MatchCase = True
  .MatchWholeWord = False
  .MatchWildcards = False
  .MatchSoundsLike = False
  .MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
  .Text = "bbb" ' text to be found
  .Replacement.Text = "yyy" ' replacement text
  .Forward = True
  .Wrap = wdFindContinue
  .Format = False
  .MatchCase = True
  .MatchWholeWord = False
  .MatchWildcards = False
  .MatchSoundsLike = False
  .MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll

... <and many, many more just like this> ...
~~~~~~~~~~~~~~~~~~~~~~~~~

• Using Toolbox Components
• The Results of the Program
• Automate Find and Replace - A VBA Example from an About Visual Basic Reader
• Automate Find and Replace Example - Page 2
• Automate Find and Replace Example - Page 3
• Automate Find and Replace Example - Page 4
• Automate Find and Replace Example - Page 5