With Selection.Find
.Text = "cld" .Replacement.Text = "could" .Forward = True .Wrap = wdFindContinue .Format = False .MatchWholeWord = True .MatchByte = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With
Selection.Find.Execute Replace:=wdReplaceAll