表格可見網格線的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