表字可见网格线的VBA颜色

Question

我在Word中有超过500个表。所有这些都在表格的顶部和底部有水平的绿色边框，表格内部有一些水平线条。由于错误，同一个表内和表之间的某些行具有不同的绿色。

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

我对VBA很新。我一直在看这几周没有任何成功。

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

Answer 1

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

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

我在几张桌子上测试过它。请使用您的文档的COPY进行测试。

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