word如何批量删除空行

word如何快速删除空行？

如何快速删除Word中的空行？

用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

代码输入完毕，单击“工具栏”中的“运行”按钮，执行这段代码。这时，会弹出一个消息窗口，告诉你一共删除了多少空行（如图）

1. Ctrl+H，打开替换对话框。

2. 查找内容中输入^p^p。

3. 替换为中输入^p。（英文半角shift+6，和小写p）。

4. 点击全部替换。如果空行较多，就多执行几次替换。

5. 如果文档中换行是有软回车控制换行（显示标记是向下的箭头），可在查找内容中输入^l，将其替换^p，然后再执行2、3步替换。
   

ctrl+F，然后一个空行用^p，两个用^p^p，替换 成你想要的。

我建议，替换成空以后，可以再在格式-段落里面调整行间距和段落间距的不同，而不是用回车来空行，这样控制也方便一点。

word 本来就是用各种功能来排版的，，不要只是简单的用空格和空行来控制比较好。