Microsoft Office Forums - View Single Post - [Solved] Word 16/19 change font and outside border color (same color) eg is red change to pink

macropod · 12-04-2019, 12:51 AM

Try, for example:

Code:

Sub Demo()
Application.ScreenUpdating = False
Dim Tbl As Table, Cll As Cell
For Each Tbl In ActiveDocument.Tables
  For Each Cll In Tbl.Range.Cells
    With Cll
      If .Range.Font.Color = RGB(255, 0, 0) Then
        .Range.Font.ColorIndex = wdPink
      End If
      If .Borders.OutsideColor = RGB(255, 0, 0) Then
        .Borders.OutsideColorIndex = wdPink
      End If
    End With
  Next
Next
Application.ScreenUpdating = True
End Sub