Delete a line in all cells in table simultaniously

I use Word automation in my VB6 application.
I have a table in my Word doc, has 12 cells.
I have in all cells 2 lines. First line has text second line just the enter (PI sign).
Now i want the second empty line deleted in all cells and in one go, looping through cells is no option.
I believe the lines are available as paragraphs
So something like

Code:

---

ATable.range.paragraphs(1).delete

---

So i can't use ATable.range.cells i think because then i have to mention a certain cell.
Any suggestions?

If I understand your situation correctly, you will have to go cell by cell. It may be better to parse out the carriage return during the population instead.

I want to avoid going cell by cell, for timeconsuming reasons, beceause in some situations there can be lots of tables in one document.
Now i have found a simular way of approuching a paragraph (line) of all cells for entire table at once only this is for alignment.
It vertically aligns all first paragraphs of all table cells, i use a spacebefore.
aTable.range.paragraphs(1).Spacebefore = 12
Now this can be just good luck but this alignment works, but i can allso use
aTable.range.paragraphs.Last.Spacebefore = 12
But using this method for editing er deleting a paragraph/line doesn't seem to work

i tried your example above but it only worked in 1 cell and paragraphs.last seems to be after the table

VB Code:

For Each atable In ActiveDocument.Tables
    For Each acell In atable.Range.Cells
        acell.Range.Paragraphs(2).Range.Delete
    Next
 
Next

this code does what you want, but as you said it is a bit slow, took 126 seconds to do 620 tables of 20 cells on my laptop

pete

The example with spacebefore does work for me for alignment tried on two pc's , i can mention it is done directly after a Mailmerge.execute. But doesn't matter maybe some sideeffect.
Now i tryed deleting a certain paragraph and this only is done in one cell like you said.

VB Code:

'This does only delete paragraph in one cell
aTable.range.paragraphs(1).range.delete
'or
aTable.range.paragraphs(2).range.delete

Now preventing the extra enter during populating maybe difficult. Because it comes from selected fields for a Mailmerge and complicated to explain all the steps.
The result is i have really two lines visible
Example:
FirstLine¶
O
The tablecellseparator sign O allso shows as a line. So i realy have to remove the ¶ from the first line. I will look ferther for a fast way to remove it for all cells, if not found i will have to leave the extra enter.
Added info:
Allso the FirstLine mentioned is a field not plain text so {MyFieled}¶
This maybe will make it more difficult to remove the ¶

Okey. I found an easy and fast solution.
Because all the enter ¶ signs in my document or unwanted (each enter at the first and only line)
i can easally find and replace them with a Find.Execute Replace:=wdReplaceAll
I allready tried it and works great :-)

too easy..... lol