Question

Word文档里怎样一次性去掉空格行？

Answer 1

具体操作如下：

1.在Word“编辑”菜单中打开“查找和替换”对话框，在“查找内容”中输入“^p^p”“替换为”中输入“^p”，然后选“全部替换”，这种方法可去掉文档中因自动换行符造成的多余空行，但还有一些空行是去不掉的，需要再用下面的其他方法。

2.对于文档中的手动换行符(“Shift+回车”)，就要用“^l^l”替换成“^l”(这里用的不是1，而是L字母的小写）或直接用替换对话框里的“特殊字符”，选择里面的“有手动换行符”来进行替换，

也可以去掉文档中的一些多余空行。

3.对于自动和手动换行符交替的情况，可用“^p ^l”替换成“^l”或“^l ^p”替换成“^l”也可以去掉文档中的一些多余空行。

上述三种方法可以去除文档中的大部分空行，如果还剩有空行，不妨再用下列方法再试一试。

4.用“^l ^l”(注意两个换行符之间有一个空格)替换成“^l”，这种方法是用来对付前面有空格的换行符。

Answer 2

一篇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