delete blank line

[john smith]

Hi,

I have 3 paragraphs in a table cell. Each paragraph separated by a blank
line. I'd like to delete the blank line so that all paragraphs aren't
separated anymore.

Example:
line1 sentences paragraph

line2 sentences paragraph

line3 sentences paragraph

Wanted:
line1 sentences paragraph
line2 sentences paragraph
line3 sentences paragraph

Code so far:
For tblIdx = 1 To ActiveDocument.Tables.Count
Set theTable = ActiveDocument.Tables(tblIdx)

If Mid(theTable.Cell(2, 2).Range.Text, 1, 23) = "Scenario and
Conditions" Then
With Selection.Find
.Text = "^p"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
End If
Next

Would anyone know how to delete the blank lines in all of table cells?

Please help me! Thank you so muchh...
John

 

[Jezebel]

With ActiveDocument.Tables(tblIdx).Range.Find
.Text = "^p^p"
.Replacement.Text = "^p"
.Execute Replace:=wdReplaceAll
End With