去掉WORD中的空行

发布网友 发布时间：2022-05-05 12:54

我来回答

共5个回答

热心网友 时间：2022-06-27 12:55

用网络来查找资料相当方便是人所皆知的事实，找到相关的文章，自然是拷贝粘贴啦，当然，拷贝的时候还需要点技巧，直接拷进Word文档有时候是相当麻烦的，比较方便的做法是先拷进记事本，然后再转入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的宏，选择运行即可！
两种方法，各有优缺点，选用哪个，就要看你自己的喜好咯！

热心网友 时间：2022-06-27 12:55

ctrl+A 选格式里头的字体格式 段落格式
然后调整
如果是连续换行 中间有很多空行 那这是内容的问题 而不是格式的问题

热心网友 时间：2022-06-27 12:56

全选,上面的清楚格式.
然后成为WORD的格式后再改字体和段落用你的要求来改就搞定 了

先把网叶原来的格式清除了(CTRL+A全选-编辑-清除格式),在重新逐级改为你自己需要的格式.

热心网友 时间：2022-06-27 12:56

用word中的替换就可以了，几个空格替换成一个空格，或是一个都没有不就可以了么，

用替换还可以去掉几个连续的软回车或是硬回车

热心网友 时间：2022-06-27 12:57

使用wps打开，里面的格式中能清除 多余的段落、空格的等。非常适合在网上粘贴下来的文档的修改。