Microsoft Office Forums - View Single Post - Help, How to do a Find in a Table, then Shade color?

Cendrinne · 01-09-2022, 02:54 AM

OK Thanks, I will try to do that with my own personal computer later.

Regarding my above Script, since myself I'm having trouble with many different color (could it be because it's an Index, vs wdColor name, or it's the Theme Office 2007 - 2010), my table didn't work if more than the Green color.

See below the Theme:
Change a theme and make it the default in Word or Excel

So I've opted to use only = IF some texte are Bold & Highlighted, Then Apply the Style with background Orange (color of my chosing, in the Style created prior on One cell).

I have not activated the colors below with the single apostrophe, but I wanted to show the coded numbers or color name, if you wanted to try. On my side, it didn't work. Oh and by the way, I had a new situation, where I wanted to ID it, so I had to add another color, DarkRed, as you will see in my new script.

Below, is the new script below:

Code:

    Selection.Find.ClearFormatting
    Selection.Find.Highlight = True
    With Selection.Find.Font
        .Bold = True
       '.Color = 5287936        'Green
       '.Color = 1857256        'Red
       '.Color = wdColorRed          'Red
       '.Color = wdColorDarkRed      'DarkRed
       '.Color = wdColorGreen        'Green
    End With
    Selection.Find.Replacement.ClearFormatting
    Selection.Find.Replacement.Style = ActiveDocument.Styles( _
        "Cell Colr Org para")
    With Selection.Find
        .Text = "&"
        .Replacement.Text = "^&"
        .Forward = True
        .Wrap = wdFindStop
        .Format = True
        .MatchCase = True
        .MatchWholeWord = False
        .MatchWildcards = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll

As mentioned before, I will try from my personal PC a little later, to send you the test document, where the script above, didn't work. Been at this all night, so now I will sleep

Thanks for your patience my friend.

Cendrinne