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> ...
~~~~~~~~~~~~~~~~~~~~~~~~~

Index: VBA - The Word Working Partner - Part 3

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