VBA代码运行时停不了！该如何改写？

bol

想把文档中的空行全部删除，但运行以下代码后，如果在文档的末尾有空行(不管多少行)，运行后就循环不止，应该如何解决？
请各位不吝指教！先谢了！

Sub 删除全部空行()

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

konggs

改成这样：

Sub bb()
Dim a As Long, b As Long
a = 1: b = 0
With Selection.Find
    .ClearFormatting
    Do While .Execute(FindText:="^p^p", Wrap:=wdFindContinue) = True And a <> b
        a = ActiveDocument.Paragraphs.Count
        With .Replacement
            .ClearFormatting
            .Text = "^p"
        End With
    .Execute Replace:=wdReplaceAll
      b = ActiveDocument.Paragraphs.Count
    Loop
End With
End Sub

以上代码，不推荐。

用老大的代码集的第一个更好。

http://club.excelhome.net/viewthread.php?tid=82313&px=0

bol

thx