word批量删除空行技巧.docxVIP

Word 技巧：批量删除空行 空行为回车直接敲出来的 用^p^p 会把所有的回车都删掉使全文格式全无 ^p 也是格式全无 求一种 即能删除空行 格式又能保持的方法 不是 shift 加回车的 空行哦 ~！用 ^l 不管用 用 Word 打开含空行的文章，依次单击 “工具 ” →“宏” →“Visual Basic编辑器 ”，打开 Visual Basic 编辑器。 双击 “Project 下”的 “ThisDocument”，打开 “代码 ”输入窗口，将下面的代码输入进去，并保存。 Sub DelBlank() Dim i As Paragraph, n As Integer Application.ScreenUpdating = False For Each i In ActiveDocument.Paragraphs If Len(i.Range) = 1 Then n = n + 1 End If Next MsgBox 共删除空白段落 n 个 Application.ScreenUpdating = True End Sub 代码输入完毕，单击 “工具栏 ”中的 “运行 ”按钮，执行这段代码。这时，会弹出一个消息窗口，告诉你一共删除了多少空行（如图） 怎样将  Word  中的空行删除呢，笔者教你三种方法。 替换法 在用替换法之前，首先要搞清楚文章中的换行符是手动换行符 ( “ Shift+回车 ”)，还是段落标记。其次， 还要观察文章中的空行是否有规律性，如一次空一行，还是一次空两行。弄清了这两点，我们就好操作了。 笔者以文章的换行符为 “段落标记 ”和“一次空两行 ”为例讲解。首先，选取文章中要删除空行的文字内容，使 其反白显示。然后，单击 “编辑 ” → “替换 ”，弹出 “查找和替换 ”对话框。依次单击 “高级 ” →“特殊字符 ” → “段落标记 ”，输入一个 “段落标记 ”符。用同样的方法，再输入两个 “段落标记 ”符。（若文章中是 “人工换 行符 ”，在这里则输入 “人工换行符 ”；若文章空行 “一次空一行 ”，在这里只需输入两个段落标记符）。这时，在“查找和替换 ”对话框中就出现了三个连续的 “^p。”单击 “替换为 ”输入框，用同样的方法输入一个 “^p。”最后，单击 “全部替换 ”，选中文章中的所有空行就被删除了。如果，文章中的空行没有规律性（如有时 空一行，有时空两行），替换法就无能为力了，则用下面的方法来解决。 筛选法 “筛选法 ”就是将 将其删除。首先，将 开 Excel ，单击 A1  Word 中含有空行的文本复制到 Excel 中，然后利用 Excel 的 “筛选 ”功能筛选出空行， Word 中含有空行的文本选中，并单击 “编辑 ”中的 “复制 ”，复制到剪贴板中。然后，打 单元格，将剪贴板中的文本粘贴到工作表中。选中 “A”，依次单击列 “数据 ” →“筛选 ” →“自动筛选 ”。单击 A1 单元格的筛选按钮，选取 “空白 ”，筛选出空白行，并全部删除。最后，取消 “自 动筛选 ”，选取含文本的单元格并复制，切换到  word  中用 “选择性粘贴 ”→“无格式文本 ”，粘贴即可。 程序法 用 Word 打开含空行的文章，依次单击 “工具 ” →“宏” →“ Visual Basic编辑器 ”，打开 Visual Basic 编辑器。双击 “ Project下的” “ ThisDocument ，”打开 “代码 ”输入窗口，将下面的代码输入进去，并保存。 Sub DelBlank() Dim i As Paragraph, n As Integer Application.ScreenUpdating = False For Each i In ActiveDocument.Paragraphs If Len(i.Range) = 1 Then n = n + 1 End If Next MsgBox 共删除空白段落 n 个 Application.ScreenUpdating = True End Sub 代码输入完毕，单击 “工具栏 ”中的 “运行 ”按钮，执行这段代码。这时，会弹出一个消息窗口，告诉你一共删除了多少空行（如图 2 ） 图 2 软件法 Word 空行的删除还可以通过第三方软件来实现。 从下载 neaiw ，并解压。因为 neaiw 仅支持文本类型的文件， 所以，在用 neaiw 之前得先用 Word 的 “另存为 ”将文件保存为文本类型文件。 首先，打开 neaiw ，依次单击 “ File ”→“ Open，打开”含空行的文本文件。然后，依次单击 “ Tools ” →“ Delete space l