利用VBA代码批量删除空白段落

Word文档里存在很多空白段落，如何快速批量的删除这些空白段落，这里使用VBA可以一劳永逸，快速批量删除文档中所有的空白段落。

Private Sub CommandButton1_Click()
    On Error GoTo Proc_Err
    Dim i As Paragraph, n As Long
    Application.ScreenUpdating = False '关闭屏幕刷新
    For Each i In ActiveDocument.Paragraphs '在活动文档的段落集合中循环
        If Len(i.Range) = 1 Then '判断段落长段,此处可根据文档实际情况
            i.Range.Delete '进行必要的修改可将任意长度段落删除
            n = n + 1 '计数
        End If
    Next
    MsgBox "共删除空白段落" & n & "个!"
    Application.ScreenUpdating = True '恢复屏幕刷新
    
Proc_End:
    Exit Sub
    
Proc_Err:
    MsgBox Err.Number & "//" & Err.Description
    Resume Proc_End
    
End Sub