troubleshooting Question

Problem in removing the blank paragraphs

Avatar of Lawlords
LawlordsFlag for Hong Kong asked on
Microsoft Word
2 Comments1 Solution241 ViewsLast Modified:
Dear all,

I have written the code to remove the unnecessary blank paragraphs between the tables so as to keep a single paragraph between any 2 tables. However, there must be some logical errors in mycode causing the following problems:

1. Most of the unnecessary blank paragraphs were removed except 2 continues blank  paragraph remained
2. The code can't stop once initialzed

Thanks for any asstance in advance

Do

    Selection.find.ClearFormatting
    Selection.find.Replacement.ClearFormatting
    With Selection.find
        .Text = "^p^p"
        .Replacement.Text = "^p"
        .Forward = True
        .Wrap = wdFindContinue 'wdFindAsk
    End With
    Selection.find.Execute Replace:=wdReplaceAll


Loop Until Selection.find.Found = False
Sample.doc
ASKER CERTIFIED SOLUTION
GrahamSkan
Retired
Join our community to see this answer!
Unlock 1 Answer and 2 Comments.
Start Free Trial
Learn from the best

Network and collaborate with thousands of CTOs, CISOs, and IT Pros rooting for you and your success.

Andrew Hancock - VMware vExpert
See if this solution works for you by signing up for a 7 day free trial.
Unlock 1 Answer and 2 Comments.
Try for 7 days

”The time we save is the biggest benefit of E-E to our team. What could take multiple guys 2 hours or more each to find is accessed in around 15 minutes on Experts Exchange.

-Mike Kapnisakis, Warner Bros