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
.Text = "^p^p"
.Replacement.Text = "^p"
.Forward = True
.Wrap = wdFindContinue 'wdFindAsk
Loop Until Selection.find.Found = False