怎样使用VBA批量删除word中空行

使用VBA批量删除Word中空行的方法

1. 打开VBA编辑器
   • 用Word打开含空行的文章，依次单击“工具”→“宏”→“Visual Basic编辑器”，打开Visual Basic编辑器。
2. 输入代码
   • 双击“Project”下的“ThisDocument”，打开代码输入窗口，输入以下代码：
     • 代码一 vba Sub DelBlank() Dim i As Paragraph, n As Integer Application.ScreenUpdating = False For Each i In ActiveDocument.Paragraphs i.Range.Delete Next MsgBox "共删除空白段落 " & n & " 个" Application.ScreenUpdating = True End Sub
     • 代码二 vba Selection.Find.Replacement.ClearFormatting Selection.Find.Execute Replace:=wdReplaceAll
3. 运行代码
   • 代码输入完毕后，单击工具栏中的“运行”按钮，执行这段代码。此时，会弹出一个消息窗口，告知一共删除了多少空行。