word使用小技巧（一）

在word里面怎么把全篇范围内的空行全删除

      在平时上网过程中，我们经常将网页上有参考价值的文字信息复制到Word中，进行保存打印。但有时从网页复制下来的文字包含许多空行，使得页数居高不下，阅读和打印都很不方便。怎样将Word中的空行删除呢，下面就个人经验与大家分享。

方法一（替换法）

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

最后，单击“全部替换”，选中文章中的所有空行就被删除了。如果，文章中的空行没有规律性（如有时空一行，有时空两行），替换法就无能为力了，则用下面的方法来解决。

方法二（筛选法）

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

方法三（软件法）

      Word空行的删除还可以通过第三方软件来实现。从http://www.skycn.com/soft/10749.html下载neaiw，（也可以到网上搜，输入neaiw，有好多站点可以下载的）并解压。因为neaiw仅支持文本类型的文件，所以，在用neaiw之前得先用Word的“另存为”将文件保存为文本类型文件。

首先，打开neaiw，依次单击“File”→“Open”，打开含空行的文本文件。然后，依次单击“Tools”→“Delete space line”，将该文本文件中的所有空行删除。

方法四：使用宏。

      宏其实是个好东西，只不过平常比较少人去接触它。并且出于安全性的考虑，Word默认的情况下是没有启用它的，需要先进行安全性设置，允许你自己选择是启用宏，还是不启用宏。它其实是一段VB小程序，事实上，Word的大部分功能就是使用宏编写出来的，只不过它们已经经过内置设定，使用者在GUI界面操作它们，根本不知道它们实际上是怎么来的。知道了这些知识背景之后，对宏大概没有那么抵抗心理了吧？好，只要把下面这段VB代码，复制到你的自定义宏库中去，然后运行它，就可以一键消除所有的空行了！具体办法：

1，打开WORD，打开“工具-宏-Visual Basic编辑器”，在Visual编辑器左边，你会看到工程-project栏目，栏目中一般会包含两个项，一个是“Normal”，另一个是“Project(Doc1)”，其中(Doc1)是你所打开的WORD文档的名称。前者为WORD共用程序库，后者为单一文档程序库。如果你把代码写在前者里面，那你本机在本机的其它文档中，也可以使用，是“共用”的程序库；若为后者，则只有所在文档才能使用，同时，也可以能过拷贝具体文档，将宏带者，前者则不行。

2，双击期中的“Thisdocument”（两者任选），打开代码输入窗口，在其中输入以下代码：

Sub KillEmptyRows()

   '删除空行,by不见不散,2006-1-15

   Dim p As Paragraph

   Dim r As Range

   Dim s As String

   Dim l As Long

   For Each p In ActiveDocument.Paragraphs

       Set r = p.Range

       s = CStr(r.Text)

       l = Asc(s)

       If (l = 13 Or l = 11) Then r.Text = ""

   Next p

End Sub

保存，关闭Visual Basic编辑器，返回WORD界面。此时再打开“工具-宏”，在“宏的位置”中选择“所有模版和活动文档”（因为不知道你是存在模版中，还是在单个文档中，此选择可以保证两者皆可显示），你会在上方窗口的“宏名”中看到一个KillEmptyRows的宏，选择运行即可！