表格字的可见网格线的VBA颜色

Question

我在 Word 中有 500 多个表格。它们都在表格的顶部和底部有水平的绿色边框，在表格内部还有一些水平线。由于一个错误，同一个表格内和表格之间的某些行有不同的绿色。

我需要将所有表格的可见边框颜色统一为相同的绿色（RGB:0,128,0）。

我对 VBA 很陌生。我已经看了好几个星期了，但没有任何成功。

以下是我文档中的表格示例：

Answer 1

这应该设置所有边框的颜色

它不会改变任何边框、宽度或任何其他属性的可见性

我在几张桌子上对其进行了测试。请使用您的文档副本对此进行测试。

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