偶看新闻diy手工小汽车制作过程:如何去掉空白行
来源：百度文库 编辑：偶看新闻 时间：2024/04/20 12:31:56
网页上的文字，有时候为了显示的美观，段落之间往往存在着空白行，这就使得拷下来的文章变得篇幅巨大，打印出来极不美观。面对只有个位数的资料，删除这些空行自然相当简单，手动一下就可以了。
但当你面对着两位数的，甚至三位数的文章时，那简直就是灾难！当然，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（）
'删除空行，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的宏，选择运行即可！
两种方法，各有优缺点，选用哪个，就要看你自己的喜好咯！
但当你面对着两位数的，甚至三位数的文章时，那简直就是灾难！当然，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（）
'删除空行，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的宏，选择运行即可！
两种方法，各有优缺点，选用哪个，就要看你自己的喜好咯！
编辑图文后的空白如何去掉
如何去掉<marquee>标签开始和结尾的空白
QQ空间的空白部分怎么去掉
空白光碟如何鉴别
请问从网页上复制的文档有很多空白的行怎么去掉空的行
如何去掉
如何去掉
如何去掉。。。
我的电脑浏览页面时，在空白处点击鼠标右键，会出现“页面提取元素”一项，请问如何去掉它？谢谢您
怎么去掉mozilla firefox网页下面的空白块呢？
我做的flash结尾有一断空白，请问怎么去掉
怎么去掉photoshop编辑图片的空白选区？
Excel 数据前的空白用那个命令去掉
我的任务栏出现一块空白段，怎么去掉啊？
怎样将两个幻灯片之间的空白去掉?
网页顶上老是有空白怎么去掉呀
flash后面空白的时间线应该怎么去掉呢
如何修改首页为空白
如何挑选DVD空白盘？
空白网页如何加背景音乐
我的添加和删除程序中有一大块空白,是怎么回事啊?请问该怎么做才能把空白去掉?
如何在论坛注册空白ID
如何把空白设为主页
如何建立空白的.rar文件？