编写宏一键删除word中的空格与空行

本文介绍一种使用Word自带的宏功能来删除word文档中的空ge与空行的方法。通过这个方法，可以在word中添加一个按钮，通过这个按钮就可以自动一键删除word中的所有空ge与空行了，具体操作方法如下所述。

（1）启动word，关闭默认打开的word文档；

（2）单击菜单栏中的“工具－宏－visual basic编辑器”，会出现"visual basic编辑器"；

（3）在"visual basic编辑器"窗口中，右击"Normal"，选择“插入－模块”，插入一个模块；

（4）在"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

（5）代码输入完毕后，退出"visual basic编辑器”；

（6）右击工具栏的任意位置，在出现的菜单中选择“自定义”，打开“自定义”窗口并切换到“ming令”选项卡，选项中“类别”列表框下边的“宏”选项，这时“ming令”列表框下边就会出现一个名为“normal模块１.kongge"的选项，选中这个选项，按住鼠标左键不放将其拖到工具栏的任意位置。

这时工具栏上就会出现一个名为“normal模块１.kongge"的ming令按钮，右击这个ming令按钮，就会出现一个右键菜单，在这个右键菜单中我们主要进行以下操作。

1）将“ming令”后边文本框的内容替换为“删除空ge和空行”。

2）执行“更改按钮图像”ming令，在出现的子菜单中选中一个自己比较喜欢的图标（如红心图标）。

完成以上两个步骤的操作之后，最后关闭“自定义”窗口。

通过以上几步，我们就完成了工具栏中的“删除空ge和空行”按钮的添加工作，以后需要删除某个WORD文档中的空ge和空行时，只须打开该word文档，再单击工具栏中的“删除空ge和空行”按钮，稍等片刻，word文档中的空ge和空行就被全部删除了。

小提示：当我们将一个网页另存为一个将文本文件并将文本文件中的所有内容复制到word中进行编辑时，由于空行产生的复杂性，单击“删除空ge和空行”按钮可能一次不能删除全部空行，这时，再单击一次这个按钮，就能全部删除了。

另外录入并应用这个宏的时候请调整你的word宏安全设置。

本文摘自http://www.shudoo.com/