去掉Word中的空行

 用网络来查找资料相当方便是人所皆知的事实，找到相关的文章，自然是拷贝粘贴啦，当然，拷贝的时候还需要点技巧，直接拷进Word文档有时候是相当麻烦的，比较方便的做法是先拷进记事本，然后再转入word，这样做的好处是除去表格以等网页元素，只拷贝"纯文本"。然而这样做还不够彻底：网页上的文字，有时候为了显示的美观，段落之间往往存在着空白行，这就使得拷下来的文章变得篇幅巨大，打印出来极不美观。面对只有个位数的资料，删除这些空行自然相当简单，手动一下就可以了，但当你面对着两位数的，甚至三位数的文章时，那简直就是灾难！当然，Word这么成熟的编辑软件，理应有方便的方法使用达到删除这些空行的目的！下面就介绍两种简单实用的方法。

　　方法一：查找替换法。相信这个方法是比较简单实用的，但用起来有一点儿麻烦。在输入查找字符的时候，换段符是这样表示的"^p"，手动换段（即shift+enter产生的符号）符是这样表示的"^l"，其中的"l"是小字的L.那么，替换的方法就是把所有的"^l"先换成"^p"，再将所有的"^p^p"换成"^p"。当然，在此操作之前，需要先把所有的空格都替换掉。

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

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

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

　　Sub KillEmptyRows（）

　　'删除空行

　　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的宏，选择运行即可！

　　两种方法，各有优缺点，选用哪个，就要看你自己的喜好咯！