[分享]也谈空白段落的删除

chylhr

今日见到了斑竹守柔兄的空白段落的删除问题,原贴在http://club.excelhome.net/viewthread.php?tid=24414&replyID=&skin=0

守柔兄的三篇文章中的代码均遍历了文档中的每一个段落.特别是第三篇For Each ……Next循环用的更是恰到好处。我在这里想补充一个空白段落的删除代码。

大多数人都知道替换的^p^p法,查找快捷,但需要多点几下全部替换.我下面写的代码就是利用了word的替换功能.

Sub blankdel()
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    Do
    With Selection.Find
        .Text = "^p^p^p"
        .Replacement.Text = "^p"
        .Wrap = wdFindContinue
    End With
    Loop While Selection.Find.Execute(Replace:=wdReplaceAll) = True
    With Selection.Find
        .Text = "^p^p"
        .Replacement.Text = "^p"
        .Wrap = wdFindContinue
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub

以上代码优点:速度快,在长文档中优势非常突出.

代码缺点:一些特殊空白段落无法删除(如分隔符后的空白段落,单元格中的的第一个空白段落及文档中最后一行的空白段落等).

liujy

多谢楼主分享！楼主辛苦了。

lyb200

是否可以先对只有空格的段落进行消除空格，

然后再执行以上过程。

这样确保所有的空行都能删除。

konggs

谢谢分享。搜索一下。还有更好的。

chylhr

搜索一下,原来守柔兄已在别的贴子中发表过类似的方法.哈哈,看来我的分享有点多余了.