Word VBA自动排版（3）- 去除空白段落

老代码一则

Sub 删除空白段落()
    For Each para In ActiveDocument.Paragraphs
         If Right(para.Range.Text, 2) <> "。" & Chr(13) Then para.Range.Characters.Last.Delete
    Next
End Sub