怎样用Word VBA删除空行（3楼解决了）

hehex

收藏学习,谢谢

美髯客

呵呵，有用，正需要呢！

shgmp

kqbt 发表于 2009-12-20 16:32

http://club.excelhome.net/thread-1062730-1-1.html
老大是否可以看看这格问题如何解决？

almeida

413191246se 发表于 2012-6-27 15:03
当今全世界最好最新的——删除段落首尾空格及空行（宏）：

Sub delSpaceLine()

我运行了一下程序，怎么是导出basic文件呢？ F8运行，原来是这句的问题：SendKeys "^(aej)", True。  请教如何处理 ？

413191246se

楼上朋友，你好！——这个“删除段落首尾空格及空行”宏，我自己也编了一套，但后来发现，还可以有更简单的方法，但后来发现，因为 Word 2003 不同的细小的版本，里面的 VBA 也有差异，所以，我在家运行正确的宏，在单位的 Word 2003 上运行就不正确！——所以，我又最新集成了 3 种方法（其实还有自己编程的方法，共 4 种方法），可以达到目的，详情请见下面的代码：（楼上朋友，我强烈建议你下载我的 Word 2003 通用模板（预览版），搜索即可，可以初步自动排版，里面的宏代码均是免费的）

Sub 删除段落首尾空格及空行()
    With ActiveDocument.Content.Find
        .Execute findtext:="^l", replacewith:="^p", Replace:=wdReplaceAll
        .Execute findtext:="^13", replacewith:="^p", Replace:=wdReplaceAll
        .Execute findtext:="(", replacewith:="（", Replace:=wdReplaceAll
        .Execute findtext:=")", replacewith:="）", Replace:=wdReplaceAll
    End With

' 全选/居中/两端对齐：有3种写法，可酌情选用
'    SendKeys "^(aej)", True
'''
'    Selection.WholeStory
'    Application.Run "CenterPara"
'    Application.Run "LeftPara"
'''
    Selection.WholeStory
    CommandBars.FindControl(ID:=122).Execute
    CommandBars.FindControl(ID:=123).Execute
'''
    Dim i As Paragraph
    For Each i In ActiveDocument.Paragraphs
        If Len(i.Range) = 1 Then i.Range.Delete
    Next
    ActiveDocument.Content.ListFormat.ConvertNumbersToText
    ActiveDocument.Content.Find.Execute findtext:="^t", replacewith:="", Replace:=wdReplaceAll
End Sub

kenny2095

最近找资料看到这个贴子，我想试一下这个行不行：
If Word.Application.Selection.Text = vbCr Then .Delete

dfzaq58

很有用，值得收藏

tosome

不错，很快我也会用得上，谢谢各位前辈的无私共享

weiyingde

413191246se 发表于 2012-4-4 14:43
以下为VBA小菜鸟本人之最新自编独创代码，希望对大家有所帮助：

非常好，我也准备做一个，没想到先生在先。祝贺！！
1、建议增加删除首尾乱码的功能
2、增加简单排版功能（段首缩进、标题句中放大字体等）
真正做好做强。
我也试试。若你先完成，我则学习一下。

xxxlls

kqbt 发表于 2009-12-20 16:32

请问怎么清除带一个名多个的空格的空行？