空格、空段落:这个问题就更简单了,可以一键清理: 启动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