Delete a line in all cells in table simultaniously

[lvermeersch]

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

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?

[RobDog888]

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.

[lvermeersch]

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

[westconn1]

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

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

[lvermeersch]

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.

'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 ¶

[lvermeersch]

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 :-)

[westconn1]

too easy..... lol