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

jec1 · #1 12-03-2019, 11:50 PM

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 · #2 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

jec1 · #3 12-04-2019, 11:32 PM

Hi Macropod
Many thanks.

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
VBA change font color to background color	donaldadams1951	Word VBA	6	05-31-2018 04:36 PM
How to change the font color of specific text within a Word table cell	epid011	Word Tables	2	05-15-2017 05:21 PM
change font color in word	vacjan48	Word	2	11-16-2015 10:12 PM
Word macro doesn't change font color	Spideriffic	Word VBA	8	11-04-2015 03:47 AM
How to change the color of Character Border?	tinfanide	Word	4	10-27-2012 06:35 AM