FARM macro for general replace (Chapter 3.2)

Post date: Feb 10, 2014 10:39:3 PM

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "#cc"

.Replacement.Text = "Cathrine Carlisle"

.Forward = True

.Wrap = wdFindContinue

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchByte = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find

.Text = "#dp"

.Replacement.Text = "Deborah Perry"

End With

Selection.Find.Execute Replace:=wdReplaceAll