> 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 = FalseYou need to find out the value of the wdFindContinue constant first.