FARM macro for replace down (Chapter 3.2)

Post date: Feb 10, 2014 10:31:18 PM

With Selection.Find

.Text = "xdc"

.Replacement.Text = "Washington, DC"

.Forward = True

.Wrap = WdFindStop

.Format = False

.MatchWholeWord = True

.MatchByte = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll