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

阿宝剑见

感谢分享，很实用

413191246se

* 删除空行，指删除 Word 文档中的纯文本中的空行，空行也叫空段、空白段落（表格中也有空行/空白段落，但表格与纯文本有区别，不在讨论范围），空行中一般含有四种空格：第1种是半角空格（在代码中用“ ”或“^32”或“chr(32)”表示）,第2种是全角空格（在代码中用“　”或“chr(-24159)”或
“ChrW(12288)”表示），第3种是不间断空格（在代码中用“ ”或“^s”或“chrw(160)”表示），第4种是制表符（在代码中用“        ”或“^9”或“chr(9)”或“vbTab”表示）。正常情况下是看不到的，必须点击“显示/隐藏编辑标记”才可以看到。还有些不可见的空白字符或打印字符，一般很少遇到，可不必挂心。
   
* 要想删除文档中的空行，首要一点是将文档中的“假回车符”（用“^13”表示）和“手动换行符”（用“^l”或“^11”表示）全部替换为“真回车符”，即“段落标记”（用“^p”表示），确定段落，这是文档初始化的基础，就像磁盘使用前要格式化一样。实现代码如下：
        '回车符/手动换行符=>段落标记
        ActiveDocument.Content.Find.Execute "[^13^l]", , , 1, , , , , , "^p", 2
   
* 然后，下一步要解决的就是段落首尾空格的问题。方法有好几种，但经过实践，我发现最快速有效的方法，就是使选定文本——居中，再两端对齐，这样每个段落的首尾空格就全部清除了！实现代码如下：
    '删除段落首尾空格
    CommandBars.FindControl(ID:=122).Execute'居中
    CommandBars.FindControl(ID:=123).Execute'两端对齐
   
    但请注意：在排版时，清除段落首尾空格后，一般要清除全文格式。清除格式后，文本自然就恢复到原始状态，两端对齐了！所以，上面的两端对齐这一行代码就没有必要存在了！更为精简的实现代码如下：
    '删除段落首尾空格（居中）
    CommandBars.FindControl(ID:=122).Execute

    '清除格式（要先选定文本）
    Selection.ClearFormatting
   
* 再然后，就可以使用下面的代码来删除空行了！
Sub 删除空行()
    Dim i As Paragraph
    For Each i In ActiveDocument.Paragraphs
        If Len(i.Range) = 1 Then i.Range.Delete
    Next
End Sub
   
* 具体详细的排版代码，请各位可以参见我的《Word 2003 & 2019 自动排版宏（2020国庆珍藏版）》中的“公文”宏。

阿宝剑见

感谢分享，很用用

晨晓之黎

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

Sub delSpaceLine()

我刚才用你的代码了，运行显示导入文件，怎么解决？

413191246se

* 楼上朋友，你好！——你点错了，你看对话框显示“导出文件”（如果想保存劳动成果，可以在 Normal 模块下的“NewMacros”上点击右键——导出文件——保存到任何文件夹中均可）。
   
* 我的代码，文件名是 NewMacros.bas，是包含 VBA 宏代码的文件。它可以放在任何文件夹中，只要在 Word 中（注意版本号）按 Alt + F11 打开 VBE 运行环境，再按 Ctrl + M 即可导入该文件，然后，在 Word 编辑界面就可以按 Alt + F8 打开宏名列表，点击第一个宏“Custom”，再点击右边“运行”按钮，再退出 Word，重新打开 Word 即可正常使用了！

晨晓之黎

413191246se 发表于 2020-12-25 01:36
* 楼上朋友，你好！——你点错了，你看对话框显示“导出文件”（如果想保存劳动成果，可以在 Normal 模块下 ...

解决了！谢谢大神！