返回列表 发帖

Word里每一行都有很多空白,快速填满每一行,删除空白!看高招

高招, Word, 空白, 删除
如何才能把word文档一行后面的空白删除?

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

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

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

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

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


方法只能这样才行:
以下代码可以删除空格和空白行

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

应该加分  

TOP

[url=http://www.5ilecture.cn]人间佛教网真不错,收藏了
SCI论文写作,翻译,投稿,修稿,北大、清华、哈佛、中科院名校博导及博士全程服务!

TOP

支持~~顶顶~~~  
SCI论文写作,翻译,投稿,修稿,北大、清华、哈佛、中科院名校博导及博士全程服务!

TOP

嘿嘿  
SCI论文写作,翻译,投稿,修稿,北大、清华、哈佛、中科院名校博导及博士全程服务!

TOP

应该加分  
SCI论文写作,翻译,投稿,修稿,北大、清华、哈佛、中科院名校博导及博士全程服务!

TOP

返回列表