Office中国论坛/Access中国论坛

标题: Word里每一行都有很多空白，怎样快速填满每一行，删除空白？ [打印本页]

作者: spirits426 时间: 2009-10-14 16:19
标题: Word里每一行都有很多空白，怎样快速填满每一行，删除空白？
怎么把word文档一行后面的空白删除?

这是正常的:
显然，关于爱，有许多至今难以了解的方面。单纯从社会生物学角度和观点出发，未必能解答这些问题。普通心理学提供的关于自我界限的知识，起到的作用也非常有限。真正了解爱的秘密的人，也许是那些潜心研究宗教的人。为了解答这些问题，下面我要转向宗教这一领域。

这是每一行后面都是大段空白：

随着自律的不断加强，爱和人生经验一并增长，我们会越
来越了解自身成长的世界，以及我们在世界中的位置。由于天
赋以及成长环境的不同，每个人对人生体验的广度和深度常常
有着天壤之别。

就是上面这样,每行后面有一大片空白,想用word快速改回来，全部手动修改是在太慢了。

用TXT里的自动换行选项，也没有用.

烦请高人指教，谢谢！

作者: pureshadow 时间: 2009-10-14 19:26
CTRL+H
查找^p^p
替换为：什么都不填
多操作几次

作者: todaynew 时间: 2009-10-15 15:38
以下代码可以删除空格和空白行

Sub 除空行()
'清除文中空格
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = " "
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll

'删除空行
ActiveDocument.Paragraphs.First.Range.Select
For i = 1 To ActiveDocument.Paragraphs.Count
Selection.MoveDown Unit:=wdParagraph, Count:=1
Selection.Paragraphs(1).Range.Select

If Selection.Words.Count < 2 Then
Selection.Delete Unit:=wdCharacter, Count:=1
End If
Next

ActiveDocument.Paragraphs.First.Range.Select
Selection.MoveLeft Unit:=wdCharacter, Count:=1
ActiveDocument.Save
End Sub

作者: spirits426 时间: 2009-10-16 15:33
这个办法，好像不行啊

用完之后，段落都没有了。每一行都成了单独的一段了。

不知道还有没有其他办法。

附件：原始文件帮我看看（只是一部分），谢谢！

作者: spirits426 时间: 2009-10-16 16:00
用^p替换成什么也不填，就可以填满每行。

但是之前有的段落就没了，整篇文章成了一段。

作者: spirits426 时间: 2009-10-16 16:25
删除空行的代码，我感觉可以，但是代码以前没有用过。

还请详细点告诉我代码的使用

作者: pureshadow 时间: 2009-10-16 20:07

用^p替换成什么也不填，就可以填满每行。

但是之前有的段落就没了，整篇文章成了一段。
spirits426 发表于 2009-10-16 16:00

替换嘛是最简单的办法了，之前有段落的可以不选取，就不在替换范围内了，或者把两个^p替换成一个。

作者: todaynew 时间: 2009-10-21 14:19
本帖最后由 todaynew 于 2009-10-21 14:20 编辑

删除空行的代码，我感觉可以，但是代码以前没有用过。

还请详细点告诉我代码的使用
spirits426 发表于 2009-10-16 16:25

Alt+F11打开VB设计视图，将回复中的代码考入。关闭VB设计视图。然后运行宏【除空行】即可。

作者: ql6499 时间: 2009-10-21 18:32
替换有时也不完美。

作者: iii123yu 时间: 2009-11-9 10:54

CTRL+H
查找^p^p
替换为：什么都不填
多操作几次
pureshadow 发表于 2009-10-14 19:26

管理员这方法是最好的。不过 “替换为” 要改成：^p

作者: lijiashiqiao 时间: 2009-11-17 17:59
兄弟用WPS2009个人版－工具－文字工具－智能段落，包你满意。还是国产的适合国人要求！！

作者: ynqblb 时间: 2009-11-30 12:50
本帖最后由 ynqblb 于 2009-11-30 13:13 编辑

附件中的文档应该是从一种什么格式的文档转换为txt得来的。形成了每行成为一段并且大部分段后没有标点的情况。这样的文档应该是删除空行。
看一下是不是下面的效果？
如果是的话，方法：
查找([!.])^13{1,}
替换\1

[attach]40578[/attach]

作者: 菜的不行了 时间: 2010-7-19 12:27
楼上说的MS有道理

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)