Help, How to do a Find in a Table, then Shade color?

gmayor · #2 01-07-2022, 11:39 PM

If you have already marked the cells contents as bold and red or green then the following will shade the cells, although the colour you quoted is in fact a pale green?

Code:

Sub Macro1()
Dim oTable As Table
Dim oCell As Cell
    For Each oTable In ActiveDocument.Tables
        For Each oCell In oTable.Range.Cells
            If oCell.Range.Font.Bold = True Then
                If oCell.Range.Font.ColorIndex = wdRed Or _
                   oCell.Range.Font.ColorIndex = wdGreen Then
                    oCell.Shading.BackgroundPatternColor = -654246093
                End If
            End If
        Next oCell
    Next oTable
    Set oTable = Nothing
    Set oCell = Nothing
End Sub

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Conditionally Shade Table Cells	S7ewie	Mail Merge	8	04-29-2021 01:52 AM
Macro to change an RGB table cell shading color to another RGB color	David Matthews	Word VBA	4	05-29-2018 02:45 PM
Code to find a named (bookmarked?) table, replicate a row or table, and delete a specified table.	kevinbradley57	Word VBA	9	09-21-2017 04:58 PM
Text area in table won't shade	LSHAW	Word Tables	1	03-09-2017 03:08 PM
VBA Table – Search All Tables - Find & Replace Text in Table Cell With Specific Background Color	jc491	Word VBA	8	09-30-2015 06:10 AM