怎么删除word中所有的空行

方法 1：使用“查找和替换”功能
1. 打开要删除空行的 Word 文档。
2. 按下键盘上的 Ctrl + H 打开“查找和替换”对话框。
3. 在“查找内容”字段中，输入两个换行符字符（^p）之间有一个空格 ( ^p ^p)。
4. 保持“替换为”字段为空。
5. 单击“全部替换”。
方法 2：使用 VBA 宏
1. 按下键盘上的 Alt + F11 打开 Visual Basic 编辑器。
2. 在“插入”菜单中，选择“模块”。
3. 在代码窗口中，粘贴以下代码：
Sub DeleteEmptyRows()
Dim oDoc As Document
Dim oPara As Paragraph
Dim blnFoundEmptyRow As Boolean
Set oDoc = ActiveDocument
For Each oPara In oDoc.Paragraphs
If Len(oPara.Range.Text) = 0 Then
' 找到空行
oPara.Range.Delete
blnFoundEmptyRow = True
End If
Next oPara
If blnFoundEmptyRow Then
MsgBox "所有空行已删除。", vbInformation, "删除空行"
Else
MsgBox "没有空行可删除。", vbInformation, "删除空行"
End If
End Sub
4. 按下键盘上的 F5 运行宏。
说明：
方法 1 将从所有段落中删除空行，包括段落之间的空行。
方法 2 将仅从不包含任何文本的段落中删除空行（例如，由回车键创建的段落）。
如果您使用的是 Microsoft Word 2019 或更高版本，您还可以使用“高级查找”功能通过选择“高级选项”并选中“匹配整个单元格”选项来删除所有空行。