一键删除Word文档中所有空格和空行

当Word文档中有大量多余的空格和空行时，一个一个的删除很麻烦，利用Word宏可实现一键删除word文档中所有的空格和空行，提高办公效率。具体方法如下：　　

一、新建Word宏　　

启动word程序，关闭默认打开的word文档。单击菜单“工具→宏→VisualBasic编辑器”命令。右击“VisualBasic编辑器”窗口的“Normal”,选择“插入→模块”命令。在代码窗口中输入下面的代码后退出“VisualBasic编辑器”。　　

    Sub DelKong()　　

    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　　

二、将宏命令添加到工具栏