在Word中如何实现使用VBA实现自动删除空行

zqbesti

在Word中使用VBA实现自动删除空行

gwjkkkkk

论坛搜一下就用了
https://club.excelhome.net/thread-515220-3-1.html

shduy

Sub 删除空白段落()
Dim i As Paragraph, n As Byte


    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魔方~一键清除

huhui_yuan

新手学习了

huhui_yuan

新手学习了

vbee

操作方法：
选择要替换的内容，按下Ctrl+H组合键，打开“替换”对话框，勾选“使用通配符”
查找内容：
([!。：……？！）])^13{1,}       
替换为：\1