Dzwebs.Net

撰写电脑技术杂文十余年

Word删除空白段落的宏代码

Admin | 2011-4-2 7:22:53 | 被阅次数 | 7585

温馨提示!

如果未能解决您的问题,请点击搜索;登陆可复制文章,点击登陆

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

  Sub DelBlank()

  Dim i As Paragraph, 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

  代码简单,功能强大,希望对您有所帮助。


该杂文来自: Word杂文

上一篇:Word查看打印机“目录服务目前不可用”

下一篇:设置Word表格的VBA代码

网站备案号:

网站备案号:滇ICP备11001339号-7

版权属性:

Copyright 2007-2021-forever Inc. all Rights Reserved.

联系方式:

Email:dzwebs@126.com QQ:83539231 访问统计