如何删除空行

删除Word文档中空行的三种方法
在平时上网过程中，我们经常将网页上有参考价值的文字信息复制到Word中，进行保存打印。

但有时从网页复制下来的文字包含许多空行，使得页数居高不下，阅读和打印都很不方便。

方法一：替换法
在用替换法之前，首先要搞清楚文章中的换行符是手动换行符(“Shift+回车”)，还是段落标记。

其次，还要观察文章中的空行是否有规律性，如一次空一行，还是一次空两行。

弄清了这两点，我们就好操作了。

笔者以文章的换行符为“段落标记”和“一次空两行”为例讲解。

首先，选取文章中要删除空行的文字内容，使其反白显示。

然后，单击“编辑”→“替换”，弹出“查找和替换”对话框。

依次单击“高级”→“特殊字符”→“段落标记”，输入一个“段落标记”符。

用同样的方法，再输入两个“段落标记”符。

（若文章中是“人工换行符”，在这里则输入“人工换行符”；若文章空行“一次空一行”，在这里只需输入两个段落标记符）。

这时，在“查找和替换”对话框中就出现了三个连续的“^p”。

单击“替换为”输入框，用同样的方法输入一个“^p”最后，单击“全部替换”，选中文章中的所有空行就被删除了。

如果，文章中的空行没有规律性（如有时空一行，有时空两行），替换法就无能为力了，则用下面的方法来解决。

方法二：筛选法
“筛选法”就是将Word中含有空行的文本复制到Excel 中，然后利用Excel的“筛选”功能筛选出空行，将其删除。

首先，将Word中含有空行的文本选中，并单击“编辑”中的“复制”，复制到剪贴板中。

然后，打开Excel，单击A1单元格，将剪贴板中的文本粘贴到工作表中。

选中“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
i.Range.Delete
n = n + 1
End If
Next
MsgBox "共删除空白段落" & n & "个"
Application.ScreenUpdating = True
End Sub
代码输入完毕，单击“工具栏”中的“运行”按钮，执行这段代码。

这时，会弹出一个消息窗口，告诉你一共删除了多少空行。