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

2024-11-08 08:56:16
有2个网友回答
网友(1):

具体操作如下:

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

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

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

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

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

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

网友(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