SubDeleteConsecutiveEmptyParagraphs()paraCount=ActiveDocument.Paragraphs.Countidx=2DoWhileidx<paraCountforward_Paragraph=Replace(Replace(ActiveDocument.Paragraphs(idx-1).Range.Text,"",""),vbT