一篇Word文档里有很多回车空格，怎样一次性去掉空格行

一篇Word文档里有很多回车空格，一次性去掉空行的方法如下：
1、查找替换法。打开“编辑”菜单中的“替换”对话框，把光标定位在“查找内容”输入框中，单击“高级”按钮，选择“特殊字符”中的“段落标记”两次，在输入框中会显示“^P^P”，然后在“替换为”输入框中用上面的方法插入一个“段落标记”（一个“^P”），再按下“全部替换”按钮。这样多余的空行就会被删除。
2、程序法。用Word打开含空行的文章，依次单击“工具” →“宏” →“Visual Basic编辑器”，打开Visual Basic编辑器。双击“Project”下的“ThisDocument”，打开“代码”输入窗口，将下面的代码输入进去，并保存。
Sub cutPar()
Dim i As Paragraph, n As Integer
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
End Sub

超级简单的方法使用查找替换工具ctrl+f查找空格 替换为空 OK

在编辑菜单里替换

1.打开“编辑”菜单中的“替换”对话框，把光标定位在“查找内容”输入框中，单击“高级”按钮，选择“特殊字符”中的“段落标记”两次，在输入框中会显示“^P^P”，然后在“替换为”输入框中用上面的方法插入一个“段落标记”（一个“^P”），再按下“全部替换”按钮。这样多余的空行就会被删除。
2.用Word打开含空行的文章，依次单击“工具” →“宏” →“Visual Basic编辑器”，打开Visual Basic编辑器。双击“Project”下的“ThisDocument”，打开“代码”输入窗口，将下面的代码输入进去，并保存。Sub DelBlank()
Dim i As Paragraph, n As Integer
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
End Sub