delete blank line in table cells

[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

 

[Doug Robbins - Word MVP]

Just do a search for ^p^p and replace it with ^p. If that screws up the
spacing elsewhere in the document, select the paragraphs affected and format
them with space before or after as they should have been formatted in the
first place.

Using two carriage returns to separate paragraphs with a blank line is a
practice that should have gone out with the carriage.

--
Hope this helps.

Please reply to the newsgroup unless you wish to avail yourself of my
services on a paid consulting basis.

Doug Robbins - Word MVP