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)