让你的word更加整齐——word快速删除空行
先替换空格，按ctrl+H，输入空格，替换内容不输入，从而删除空格
替换空行，替换^p^p为^p 如果空行很多，就多换几次
如果有手动换行符则需要先替换为自动换行符，^l替换为^p
虽然这样删除了好多空行，但仍有一部分删除不了，这一部分的硬回车不是在段首的，而是在缩进了2个字符的位置，使用高级查找替换 查找内容：[^32^11^13^t]{2,} 替换为：^p 高级选项勾选使用通配符，全部替换。
用"替换"功能一次删除全文的空行：
点―编辑‖->―替换‖，在―查找内容‖框中输入^P^P，在―替换为‖框中输入^P,点―全部替换‖。如果有连续的空行，可多点两次―全部替换‖按钮。
在日常工作中，我们经常从网上下载一些文字材料，往往因空行多使得页数居高不下。关于―空行替换‖的相关文章也看过一些，大致都是这种方法：在―编辑‖菜单中打开―查找和替换‖对话框，在―查找内容‖中输入―^p^p‖―替换为‖中输入―^p‖，然后―全部替换‖。
而眼下的一份二级C试卷，用上面的方法却是屡试屡败，每次都是提示：―Word已完成对文档的搜索并已完成0处替换‖。为什么空行就在眼前，Word却不认识它呢？经过细心查找，发现在用替换的办法删除空行时要注意两个问题：
1.分清文件中用的是手动换行符(―Shift+回车‖)，还是段落标记
―^p^p‖替换成―^p‖并不能替换所有的空行。如果文件中用的是手动换行符，那么就要用―^l^l‖替换成―^l‖(这里用的不是1，而是L字母的小写，也可以直接用替换对话框里的―特殊字符‖，里面有―有手动换行符‖)，空行才能去除。我要用的试卷正是用手动换行符换行的。可是我也用了―^l^l‖替换成―^l‖的办法，用―全部替换‖时依然提示―Word已完成对文档的搜索并已完成0处替换‖这又是为什么呢?把我搞得一头雾水，为了搞清楚到底问题出在哪里，我又在Word文档中分别用手动换行符和回车符制造一些空行，用―^p^p‖替换成―^p‖和―^l^l‖替换成―^l‖来验证，结果能顺利完成空行的删除。为什么我自己输入的可以替换，网上下载的却不能呢?难道这里面还有―机关‖?
2.注意空格的存在
无奈之下，我只得手工删除了。在删除的过程中，我发现了它的秘密:原来每个空行的换行符前还有一个空格。空格成了折腾我的―罪魁祸首‖!再用―^l ^l‖(注意两个换行之间有一个空格)替换成―^l‖，替换终于有成果了。单击了几次全部替换，又更改了几次―查找内容‖，比如把―^p ^l‖替换成―^l，。我的页面中再也没有空行了。
看来用替换的方法来删除空行时，要灵活对待查找的内容，不然，Word可不懂你的心。电脑是智能的也是最―死心眼‖的。
删除word文档中空白行的两种方法
第一种方法：直接将两个^p替换成一个就行了
第二种方法：有时从网页中复制文字到WORD中常会带来网页中的段落格式或是换行符,如果文档档较长,要进行排版很是麻烦，其实有一种很好的方法。
用―查找替换‖功能！
1.在WORD窗口上面点―编辑‖→―替换‖,在弹出的窗口中，点―高级‖展开整个窗口;
2.将光标定位在―查找内容‖旁的输入框内，再点―特殊字符‖，选择―段落标记‖或者―人工换行
符‖，使―替换为‖旁的输入框保持为空;
3.按―全部替换‖按钮即可。
注意事项：
―段落标记‖和―人工换行符‖其实都是一样的，区别是：―段落标记‖是一句到头，系统自动换行的。―人工换行符‖是自己按回车键强制换行的。
使―替换为‖旁的输入框保持为空！就是里面什么也没有，用空白来代替段落标记，即：把段落标记删除了。另：将众多字体设置相同的文字进行重新设置或设为某样式时，但可以在―样式‖里选择字体、样式等进行设置，可一次性进行更改，大大提高效率
word文档中如何去掉文章中的空白行？
一是将网上下载下来的文档粘贴到记事本中，再从记事本―复制‖―粘贴‖到Word文档，这样会自动删除许多空白行。
二是如果还有一些带回车符的空白行，则执行―编辑‖——―替换‖，在―查找内容‖栏中输入―^p^p‖（P前面的小符号是数字6的上档键），在―替换‖栏中输入―^p‖，最后单击―全部替换‖按钮，删除多余的空白行。
三是点-编辑-替换-勾选通配符-查找内容：^13{2,}替换为：^p全部替换
如何批量删除word中的所有奇数行
1、隔行多选删除：
按住Ctrl的同时点击欲删除的行，将其全部选定后删除。这种办法只适用于文档内容不多的情况。
2、表格文本互换（手动删除）：
全选内容，依次点击表格-转换-文本转换为表格，列数为―2‖，文字分隔位置为―段落标记‖，点击―确定‖。
全选第二列，右键-删除列。
全选表格，依次点击表格-转换-表格转换为文本。
3、表格文本互换（VBA删除）
将内容转换为表格，方法参见上一方法；
在VBA编辑器里写以下代码
Sub test()
Dim i As Integer
With Selection
If .Information(wdWithInTable) Then
If MsgBox("是否开始隔行删除内容？？？", vbOKCancel) = vbCancel Then Exit Sub
i = .Information(wdEndOfRangeRowNumber)
Do While i < Tables(1).Rows.Count
.Tables(1).Rows(i).Delete
i = i + 1
Loop
End If
End With
End Sub
将光标定位于表格第一行，运行代码，可将表格隔行删除。
