Do While .Find.Found .Paragraphs.Last.Next.Range.Font.AllCaps = True .Collapse wdCollapseEnd .Find.Execute Loop