delete blank line in table cells

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

john smith - 05 Sep 2006 22:25 GMT

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

Reply to this Message

Doug Robbins - Word MVP - 06 Sep 2006 04:46 GMT

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.

Signature

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

> Hi,
>
[quoted text clipped - 40 lines]
> Please help me! Thank you so muchh...
> John

Reply to this Message