I don't know how to fix it because I don't know what is not working. You said you have a 11 column table with data always in column 1 and 7. The code I provided you looks at columns 2-6 and 8-11 starting with the last row of the table. If they are all empty then the row is deleted.
The first time a row contains content in 2-6 or 8-11 the execution stops.

__________________
Greg Maxey
Please visit my web site at http://www.gregmaxey.com/

Hello Greg,

Sorry your code is OK. I forgot a few coulombs with a checkbox. They are count one extra in the form. It doesn't matter or the boxes are on or off.

So table 9 is also working fine for deleting empty row's.
Thank you again!

The under line is also working in table 11 and 15.
In table 9 is it working when the whole inner table has a line. In table 9 I want in the middle a blank coulomb because I want a border between the right and left part.
(actually it are two tables next to each other). When I do this, the line
Selection.Tables(1).Rows.Last.Borders(wdBorderBott om).Color = Selection.Tables(1).Rows.First.Borders(wdBorderTop ).Color
isn't working anymore.
I tried to fix it to change some codes but ...I'll think I need some help...

The test document is in the attachment.

Greetz ViBoR.
From a rainy Holland

Attached Files

test.doc (73.0 KB, 9 views)