怎么撤销WORD文档多余的行

就是想把一本资料拿去打印,里面的多余的空行太多了,如果这样打印的话,那就太浪费RMB啊

【去掉Word中的所有空行】使用宏 http://5it66.com/show.asp?id=41
宏其实是个好东西,只不过平常比较少人去接触它。并且出于安全性的考虑,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的宏,选择运行即可!

参考资料:http://5it66.com/show.asp?id=41

温馨提示:答案为网友推荐,仅供参考
第1个回答  2010-04-03
在行上右键,选择删除行
第2个回答  2010-04-03
是word表格多余的行 还是多余的段落标记?

ctrl+A——ctrl+H——高级—— 特殊字符——段落标记(两次)
就是查找内容中输入^p^p
再替换为^p,就是一个段落标记

然后全部替换就可以。如果还有,用同样的方法多替换几次
第3个回答  2010-04-03
不是表格的话:直接按删除键就可以删了。
是表格的话:选中你要删除的哪一行——右键——删除选择“行”就可以了
第4个回答  2010-04-08
CTRL+H,把^P^P替换为^P
第5个回答  2010-04-03
删不了?
相似回答