一键删除文档所有空格空行.docVIP

一键删除文档所有空格空行 一键删除文档所有空格空行 设为主页 加入收藏帮助 | 留言交流 | 首页 | 主题阅读 | tags | 精彩目录 | 精品文苑 | 会员浏览 我的图书馆 休闲·怡情 | 艺术 音画 美女 笑话 小游戏 壁纸 风景 健康·养生 | 健身 食疗 治病 中医 减肥 经穴 亚健康 生活·情感 | 哲理 情感 家居 母婴 美食 美容 百宝箱 文教·社会 | 读书 人文 历史 社会 教育 职场 电脑 一键删除文档所有空格空行 （转载） 西吧 收藏于 2009-09-26 阅读数： 公众公开 原文来源　 转藏到我的图书馆 一键删除文档所有空格空行 通过复制粘贴网络资源得到的Word文档无用空格和空行很多，一一删除非常麻烦，如果创建一个具有相关功能的word宏，然后再往工具栏上添加剂一个按钮，当我们单击工具栏中的这个按钮时，通过执行word宏就可以实现一键删除word文档中的所有空格和空行了。 　　先启动word 然后关闭默认打开的word文档，再单击菜单“工具－宏－visual basic编辑器”命令，调节器出visual basic编辑器，在visual basic编辑器窗口中，右击Normal,选择“插入－模块“命令，插入一个模块。 　　 　　插入一个模块后，在visual basic编辑器右边自动打开的窗口中输入以下代码: Sub KongGe() 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 Application.ScreenUpdating = True Options.AutoFormatAsYouTypeDeleteAutoSpaces = True Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = .Replacement.Text = .Wrap = wdFindContinue End With Selection.Find.Execute Replace:=wdReplaceAll End Sub 代码输入完毕后，退出visual basic编辑器,这时刚刚输入的代码就被自动保存了。 　　右击工具栏的任意位置，在出现的菜单中选择“自定义”，打开“自定义”窗口并切换到“命令”选项卡，选项中“类别”列表框下边的“宏”选项，这时“命令”列表框下边就会出现一个名为“normal模块１.kongge的选项，选中这个选项，按住鼠标左键不放将其拖到工具栏的任意位置。 (个人备注:以上试验过,确实管用,试验的文章直接贴260页,按“normal模块１.kongge的按钮后,变成156页。但下面这一步改按钮图像和文本框内容没找着） 　　这时工具栏上就会出现一个名为“norma