Do While .Find.Found .InsertBefore "<case>" .Characters.Last.InsertBefore "</case>" .Collapse wdCollapseEnd .Find.Execute Loop