通过如下的宏代码，您就可以在WORD中删除空白的段落。

Sub DelBlank()

Dim i As Paragraph，WORD上下页， n As Long

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

代码简单，pdf怎么转换成word，功能强大，希望对您有所帮助。

上一篇：word个人简历制作教程：如何设置Word表格的VBA代码 下一篇：word安装教程：Word删除空白段落的宏代码介绍

郑重声明：本文版权归原作者所有，转载文章仅为传播更多信息之目的，如作者信息标记有误，请第一时间联系我们修改或删除，多谢。