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 |