Word中怎么删除多余的空白处啊?
发布网友
发布时间：2022-04-24 14:36
共2个回答
热心网友
时间：2022-05-01 20:16
把^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
热心网友
时间：2022-05-01 21:34
声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。
E-MAIL:11247931@qq.com
E-MAIL:11247931@qq.com