按CTRL+F使用替换
把^p^p替换成^p就可以了,这样一次删除一行空行,至到完全删除空行。(^p表示一个回车)
还可以用宏来完成,代码如下:
Sub
删除空行()
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
Word怎么删除多余的空白页?
选择邮件格式为目录格式,就可以连续排列了。重新合并一下吧。
或者用查找替换,每一个表后面都是一个分节符,用查找替换把它删掉就可以了。
一些带回车符的空白行,则执行“编辑”——“替换”,在“查找内容”栏中输入“^p^p”(P前面的小符号是数字6的上档键),在“替换”栏中输入“^p”,最后单击“全部替换”按钮,删除多余的空白行。
Word中如何删除空白页