按下Alt+F11 打开“Microsoft Visual Basic for Applications”窗口。
点击“插入”菜单,选择“模块”。
将以下代码复制粘贴到模块窗口中:
Sub DeleteBlankLines() Dim para As Paragraph For Each para In ActiveDocument.Paragraphs If para.Range.Text = Chr(13) & Chr(13) Then para.Range.Delete End If Next para End Sub