采用Word自带的替换功能批量删除空行
批量删除空行,采用Word自带的替换功能即可,具体操作如下:
1、在文档编辑状态按Ctrl+H
,打开Word的替换对话框,在查找输入框中输入“^p^p
”(无引号),在替换为对话框中输入“^p
”,按“全部替换”即可。
解释:“^p
”表示的是word里面的回车,连续两个“^p
”表示的就是两个回车,这样表示当然就是指的有冗余的空行的时候了,毫无疑问,
将连续两个回车替换成一个,就删除了其中一个,如果这样的情况很多,在完成一次全部替换之后再多操作几次即可。
2、跟第一种情况类似,只是在查找输入框中输入的是“^l^l
”。这种情况普遍出现在从网页中直接复制文字到WORD的时候,“^l
”可以理解为Ctrl+Enter所实现的换行。
用宏来删除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
代码输入完毕,单击“工具栏”中的“运行”按钮,执行这段代码。这时,会弹出一个消息窗口,告诉你一共删除了多少空行。
版权声明:本文由 Duter2016 在 2019年10月29日发表。本文采用CC BY-NC-SA 4.0许可协议,非商业转载请注明出处,不得用于商业目的。
文章题目及链接:《批量删除WORD空行的方法》