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...
tsoetant
Microsoft ISV Community Center Forums3
|