Word Macro 删除空白段落

Sub deleteBlankParagraphs()

For Each para In ActiveDocument.Paragraphs

If para.Range.Text = "" & vbCr Or para.Range.Text = " " & vbCr Then

para.Range.Delete

End If

Next para

End Sub

临时写的代码。

参考： https://wordmvp.com/FAQs/MacrosVBA/DeleteEmptyParas.htm