I have more than 500 tables in Word. All of them have horizontal green borders at the top and bottom of the table, and some horizontal lines inside the table. Because of a mistake, some lines inside the same table and between tables have different green colors.
I need to unify the color of visible borders of all tables to the same green (RGB:0,128,0).
All the tables have the first row completelly merged. Tables have diferent numbers of rows and columns (see example attached).

I have been trying to fix this issue with many codes, without any success.

For example, this code only works with the top border:

Sub colorBorders()
Dim i As Integer
Dim tabl As Table
For Each tabl In ActiveDocument.Tables ' iterate all the tables
For i = 1 To tabl.Borders.Count ' iterate all borders for each table
tabl.Borders(i).Color = RGB(0, 128, 0)
Next i
Next tabl
End Sub

Anyone knows? Thanks!!

Attached Files

Tablas para subir a foro.docx (20.5 KB, 15 views)