删除word中的空行

  在平时上网过程中，我们经常将网页上有参考价值的文字信息复制到Word中，进行保存打印。但有时从网页复制下来的文字包含许多空行，使得页数居高不下，阅读和打印都很不方便。

替换法 在用替换法之前，首先要搞清楚文章中的换行符是手动换行符(“Shift+回车”)，还是段落标记。其次，还要观察文章中的空行是否有规律性，如一次空一行，还是一次空两行。弄清了这两点，我们就好操作了。笔者以文章的换行符为“段落标记”和“一次空两行”为例讲解。首先，选取文章中要删除空行的文字内容，使其反白显示。然后，单击“编辑” → “替换”，弹出“查找和替换”对话框。依次单击“高级” →“特殊字符” → “段落标记”，输入一个“段落标记”符。用同样的方法，再输入两个“段落标记”符。（若文章中是“人工换行符”，在这里则输入“人工换行符”；若文章空行“一次空一行”，在这里只需输入两个段落标记符）。这时，在“查找和替换”对话框中就出现了三个连续的“^p”。单击“替换为”输入框，用同样的方法输入一个“^p”最后，单击“全部替换”，选中文章中的所有空行就被删除了。如果，文章中的空行没有规律性（如有时空一行，有时空两行），替换法就无能为力了，则用下面的方法来解决。

筛选法“筛选法”就是将Word中含有空行的文本复制到Excel中，然后利用Excel的“筛选”功能筛选出空行，将其删除。首先，将Word中含有空行的文本选中，并单击“编辑”中的“复制”，复制到剪贴板中。然后，打开Excel，单击A1单元格，将剪贴板中的文本粘贴到工作表中。选中“A”列，依次单击“数据” →“筛选” →“自动筛选”。单击A1单元格的筛选按钮，选取“空白”，筛选出空白行，并全部删除。最后，取消“自动筛选”，选取含文本的单元格并复制，切换到word中用“选择性粘贴”→“无格式文本”，粘贴即可。

程序法

用Word打开含空行的文章，依次单击“工具” →“宏” →“Visual Basic编辑器”，打开Visual Basic编辑器。双击“Project”下的“ThisDocument”，打开“代码”输入窗口，将下面的代码输入进去，并保存。

1. Sub DelBlank()
2. Dim i As Paragraph, n As Integer
3. Application.ScreenUpdating = False
4. For Each i In ActiveDocument.Paragraphs
5. If Len(i.Range) = 1 Then
6. i.Range.Delete
7. n = n + 1
8. End If
9. Next
10. MsgBox "共删除空白段落" & n & "个"
11. Application.ScreenUpdating = True
12. End Sub

代码输入完毕，单击“工具栏”中的“运行”按钮，执行这段代码。这时，会弹出一个消息窗口，告诉你一共删除了多少空行软件法

Word空行的删除还可以通过第三方软件来实现。 从http://www.9bb.cn/down.asp?id=5734下载neaiw，并解压。因为neaiw仅支持文本类型的文件，所以，在用neaiw之前得先用Word的“另存为”将文件保存为文本类型文件。关于这种方法其实一般要使用的频率较少，此处不在赘叙，如有兴趣可以在网络上搜索一下