一键删除WORD文档中无用的空格

一键删除WORD文档中无用的空格、空行我们在日常工作中经常会通过复制粘贴网络资源得到WORD文档材料。但得到的文档材料会有很多无用的空格、空行，一一删除非常麻烦。现在我们可以通过创建一个具有相关功能的

WORD 一键删除文档中无用的空格、空行 WORD 我们在日常工作中经常会通过复制粘贴网络资源得到文档材料。但得到的文档 材料会有很多无用的空格、空行，一一删除非常麻烦。现在我们可以通过创建一个具有相关 WORD 功能的宏，然后再往工具栏上添加一个按钮，当我们单击工具中的这个按钮时，通 WORD 过执行宏就可以实现一键删除文档中的空格空行了。 操作方法如下： 1. Word“--Visual Basic”“Visual Basic” 先启动，然单击工具宏编辑器命令，调出编辑器， “Visual Basic”“Normal”“-” 在编辑器窗口中，右击，选择插入模块命令，插入一个模块。 2. “Visual Basic” 插入一个模块后，在编辑器所打开的窗口中输入以下代码： Sub KongGe() Dim iAs Paragraph, nAs Long Application.ScreenUpdating =False For Each iIn 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 3. Visual Basic 代码输入完毕后，退出编辑器，这时刚刚输入的代码就被自动保存了。 4. “”“”“ 右击工具栏的任意位置，在出现的菜单中选择自定义，打开自定义窗口并切换到命 ”“”“”“” 令选项，选中类别列表框下边的宏选项，这时命令列表框下边就会出现一个名 “Normal.1.KongGe” 为模块的选项，选中这个选项，按住鼠标左键不放将其拖到工具栏的 任意位置。 5. “Normal.1.KongGe” 这时工具栏上就会出现一个名为模块的命令按钮，右击这个命令按 钮，就会出现一个右键菜单，在这个右键菜单中我们主要进行以下操作： 1 “”“” ）将命名后边文本框的内容替换成删除空格和空行。 2 “” ）执行更改按钮图像命令，在出现的子菜单中选中一二自己比较喜欢的图标。 “” 完成以上两个步骤的操作之后，最后关闭自定义窗口。