如何批量删除文档里的空白行

domiso · 发表于 2017-12-29 13:53

如何批量删除文档里的空白行

13907933959 · 发表于 2017-12-30 06:32

本帖最后由 13907933959 于 2018-1-1 09:48 编辑

网友好！
求助解答问题，建议上传一个“测试附件”，附件上最好有“模拟的效果”，这样才可能有更多的人帮到你，因各人对问题的描述、理解不同，很容易有偏差，您把问题描述得再清楚，都不如帮助您的人看到“模拟的效果”更直观，如没有“测试附件”，得到帮助的概率和满意度会不高！

Sub 删除空行()
Dim i As Paragraph
For Each i In ActiveDocument.Paragraphs
If Len(i.Range) = 1 Then i.Range.Delete
Next
End Sub

wdpfox · 发表于 2018-1-2 13:54

学习了，多谢杜老师慷慨分享好代码！
　　　　　　Oooo
　　　　　　(___)
　　oooO 　 )_/
　　(___) 　 (_/
　　 \_(
　　　\_)

13907933959 · 发表于 2018-1-2 14:16

本帖最后由 13907933959 于 2018-1-3 06:04 编辑

wdpfox 发表于 2018-1-2 13:54
学习了，多谢杜老师慷慨分享好代码！
　　　　　　Oooo
　　　　　　(___)

你好！
你弄错了，我不是杜前辈，杜前辈的网名是duquancai

wdpfox · 发表于 2018-1-5 14:08

13907933959 发表于 2018-1-2 14:16
你好！
你弄错了，我不是杜前辈，杜前辈的网名是duquancai

是弄错了, 谢谢提醒 !

lgy9656 · 发表于 2018-1-6 18:03

13907933959 发表于 2017-12-30 06:32
网友好！
求助解答问题，建议上传一个“测试附件”，附件上最好有“模拟的效果”，这样才可能有更多的人帮 ...

感谢分享，这段代码是删除全文所有空行，是否能加个判断呢？如果有选区，就只删除选区内的空行，如果没有选区，就删除全文所有空行。

		自动登录	找回密码
密码			免费注册

[求助] 如何批量删除文档里的空白行