>> Selection.Find.ClearFormatting >> Selection.Find.Replacement.ClearFormatting >> With Selection.Find >> .Text = ".vmd" >> .Replacement.Text = "^m" >> .Forward = True >> .Wrap = wdFindContinue >> .Format = False >> .MatchCase = False >> .MatchWholeWord = False >> .MatchWildcards = False >> .MatchSoundsLike = False >> .MatchAllWordForms = False >> End With >> Selection.Find.Execute Replace:=wdReplaceAll >>>>
>.Forward = True > .Wrap = wdFindContinue > .Format = False>