Submit My Question - Recent Questions - Recent Answer
Msdn Tech >> Microsoft ISV Community Center Forums >> Visual Basic for Applications (VBA)

delete blank line in table cell

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
[1455 byte] By [tsoetant] at [2007-12-24]
«« Document Level Customization - Excel
»» Little problem with MSDN Forum
# 1
This seems to do the job:

Sub DeleteEmptyParagraphs()
Dim numPara As Integer
Dim counter As Integer
Dim rng As Range
Dim tblCell As Cell
Dim aTable As Table

For Each aTable In ActiveDocument.Tables 'for each table in the document
For Each tblCell In aTable.Range.Cells 'for each cell in the table
Set rng = tblCell.Range 'range is current cell
numPara = rng.Paragraphs.Count
For counter = numPara To 1 Step -1 'for each paragraph in the cell
If Len(rng.Paragraphs(counter).Range.Text) <= 1 Then
rng.Paragraphs(counter).Range.Delete
End If
Next counter
Next tblCell
Next aTable
End Sub
Navajo at 2007-8-31 > top of Msdn Tech,Microsoft ISV Community Center Forums,Visual Basic for Applications (VBA)...
Microsoft ISV Community Center Forums
Visual Basic for Applications (VBA)

Microsoft ISV Community Center Forums Hot Topic

Microsoft ISV Community Center Forums New Topic

Microsoft ISV Community Center Forums

Java / MSDN / Linux Tech / PHP Tech / MSDN DotNet / MSDN TECH / Health Library / Programmers Tech / visual basic Tech / Developer Tech / Ipod faqs / Msdn China Tech

Site Classified