摘要：如何删除文档中相同的字符 一次删除N个空行 我们在网上下载资料 用wod整理归档井打印的时候，常发现文档里有非常多的空白行，直接打印既影响阅读，又浪费纸张，一个个删除十分麻烦，那么如何次删除多个空白段...

如何删除文档中相同的字符

一次删除N个空行 我们在网上下载资料.用wod整理归档井打印的时候，常发现文档里有非常多的空白行，直接打印既影响阅读，又浪费纸张，一个个删除十分麻烦，那么如何次删除多个空白段落昵？下面我们就来编写一个功能小模块，并把已做成一个菜单为你解决问题 1.点击“工具--宏--宏”（ 或按下快捷键Alt + F8 ）打开“宏”对话框，在“宏名”下面一栏输人“DelBlank”，点击“创建”按钮。

2.打开。

Visual Basic 编辑器后，在右侧代码窗口的su DelBlank（) 和End Su 之间输入下面一段代码。

Dim i As Paagaph, n As Long Application.SceenUpdating = False Fo Each i In ActiveDocument.Paagaphs If Len(i.Range) = 1 Then i.Range.Delete n = n + 1 End If Next MsgBox ＂共删除空白段落＂ & n & ＂个！＂ Application.SceenUpdating = Tue 点击“文件一保存Nomal保存当前的代码，然后关闭visual Basic 编辑器。

将这个宏命令添加到wod 菜单中。

在菜单栏上点右键，在弹出的右键菜单中点击“自定义”，选择“命令”选项，在左侧“类别”列表框中找到“宏”，在右侧“命令”列表框中把“ Nomal.NewMacos.DelBlank ”拖拽到“工具”菜单栏上。

在命令上点击右键，将这个菜单重命名为“删除空行（ & D ） ”。

到此.这个可以一次删除N 个空行的菜单就制作成功了 。

打开认访wod 文档，选择“工具—删除空行”，（或按下快捷键“ Ctl + D ”）就可以删除空行，最后向你报告删除的结果还等什么，大家决去体验一卜它的便利吧。