word去掉重复的字符 word 重复字符
如何删除文档中相同的字符
一次删除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 ”)就可以删除空行,最后向你报告删除的结果还等什么,大家决去体验一卜它的便利吧。
-