献县孔德文书法:去掉Word中的空行
来源:百度文库 编辑:偶看新闻 时间:2024/04/30 14:40:49
去掉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()
'删除空行,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的宏,选择运行即可!
两种方法,各有优缺点,选用哪个,就要看你自己的喜好咯!
如何去掉word中的空行
如何去掉Word空行
Word中如何去掉多余的空行?
请问:怎么样去掉文档中的空行?
如何删除word中的大量空行?
怎样一资性删去WORD中的空行?
如何可以把一篇word文档里的空行去掉?
如何一次性删除word文档中的空行,急!!!
在WORD中怎样批量删除文档中的空行?
如何用“查找替换”删除word中的空行?
批量删除word空行
word中怎样一次性把文章中所有的空行去掉
在WORD里,好多空箭头(即回车键造成的空行)怎么能一次去掉?
怎么才能把word文档上中行与行之间的空行一次去掉?
如何去掉word中的尾注
怎么一次性删去WORD空行?
在WORD中删除空行
如何用Word的查找替换功能替换掉文档中的空格和空行?
复制到WORD中的文章各行文字之间常常存在空行,用什么方法可以将文章中的所有空行一次的删除。
怎么样才能快速删除word文件中的多余空行 档,给不同的管理者阅读,这些文档中都有空行,每次
快速删除文章中的空行?
如何把Word中的标尺去掉啊
怎么去掉word文档中的背景图??
如何去掉word中的拼写检查?