Word里每一行都有很多空白，怎样快速填满每一行，删除空白？

spirits426

怎么把word文档一行后面的空白删除?

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

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

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

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

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

烦请高人指教，谢谢！

pureshadow

CTRL+H
查找^p^p
替换为：什么都不填
多操作几次

todaynew

以下代码可以删除空格和空白行

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

这个办法，好像不行啊

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

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

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

spirits426

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

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

spirits426

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

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

pureshadow

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

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

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

todaynew

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

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

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

ql6499

替换有时也不完美。

iii123yu

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

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