Word 16/19 change font and outside border color (same color) eg is red change to pink

[jec1]

Hi everyone
Looking for macro to change Word 2016 document (example attached) the font color for the text and outside border at same time for entire document. There are other 1 row tables each with different colour for a particular party. In this instance it is the Red Table Row and Text we wish to change.


1 row table
Text is red


Outside Table Border is Red

[macropod]

Try, for example:

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

[jec1]

Hi Macropod
Many thanks.