看到网上很多批量删除Word里面的空行，都是用的宏代码实现。
那个当然不错。但是，我一直觉得那样做很耗时间，用Word就是为了方便，本来很简单的问题，为什么要像科学家那样，把问题复杂化呢？嘿嘿。
当然不是贬低科学家们。俺没那个资格，但是，用WORD这么多年，遇到有空行要替换的时候，我从来不会用什么宏来操作，宏，我只会在更高难度的操作中才会用。呵呵。
好了。说了这么多废话，开始正式说明我的方法：
我批量删除WORD空行的方法
批量删除空行，采用Word自带的替换功能即可，具体操作如下：
1、在文档编辑状态按Ctrl+H，打开Word的替换对话框，在查找输入框中输入“^p^p”（无引号），在替换为对话框中输入“^p”，按“全部替换”即可。
解释：“^p”表示的是word里面的回车，连续两个“^p”表示的就是两个回车，这样表示当然就是指的有冗余的空行的时候了，毫无疑问，将连续两个回车替换成一个，就删除了其中一个，如果这样的情况很多，在完成一次全部替换之后再多操作几次即可。
2、跟第一种情况类似，只是在查找输入框中输入的是“^l^l”。这种情况普遍出现在从网页中直接复制文字到WORD的时候，“^l”可以理解为Ctrl+Enter所实现的换行。
也还是列出来大多数人所使用的用宏来删除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 |
代码输入完毕，单击“工具栏”中的“运行”按钮，执行这段代码。这时，会弹出一个消息窗口，告诉你一共删除了多少空行（如图）
WORD批量替换实用小技巧
一、【通用版】删除文章所有空行并实现每段段首空两格（不管各段首是否有空格和有多少空格）
第一步——删除空行：按CTRL+H呼出“替换”对话框，在“查找内容”处输入“^p”，“替换为”处输入“^s”(或者什么也不输入)，然后点击“全部替换”。
第二步——划分段落：按CTRL+H呼出“替换”对话框，在“查找内容”处输入“^w”，“替换为”处输入“^p”，然后点击“全部替换”。
第三步——每段首空两格：按CTRL+H呼出“替换”对话框，在“查找内容”处输入“^p”，“替换为”处输入“^p^s^s^s^s^s^s^s^s”，然后点击“全部替换”即可。
（说明一：第二步和第三步其实可以合在一步写：
按CTRL+H呼出“替换”对话框，在“查找内容”处输入“^w”，“替换为”处输入“^p^s^s^s^s^s^s^s^s”，然后点击“全部替换”。
说明二：文中但凡提到输入，双引号均不要输入
说明三：这样处理的文章仅第一自然段需要手动空两格）
各位看官可以看看我用这种方法修改的一篇文章。这篇文章将近两万字，一共二十二页，我用这种方法不到一分钟即修改成非常整齐、漂亮的版面。
修改前的页面：http://bimzcy.blogchina.com/inc/%C2%ED%D5%DC%C7%B0.htm
修改后的页面：http://bimzcy.blogchina.com/inc/%C2%ED%D5%DC%BA%F3.htm
二、【简化版】删除文章所有空行（前提是段落标记前都有空格）
我曾经写过一个删除文章空行的技巧，不过那个要借助博客网后台才能实现，而我现在要讲的这个技巧则不用借助博客网的后台，全程都在WORD上实现。
按CTRL+H呼出“替换”对话框，在“查找内容”处输入“^s^p”，“替换为”处什么也不输入，然后点击“全部替换”即可。
三、将“手动换行符”批量全部替换为“段落标记”
从网上、记事本上直接复制文本到WORD上会出现很多“手动换行符”（像向下的箭头的那种），既不规范也不便于编辑，有时候需要将它们批量全部替换成“段落标记”。
按CTRL+H呼出“替换”对话框，在“查找内容”处输入“^l”，“替换为”处什么也不输入，然后点击“^p”即可。
我也不知道好不好用，你试试吧。另外有批量替换的软件，下载地址：http://www.ouyaoxiazai.com/soft/yyrj/138/2163.html
