Changing the colour of a cell based on PART of the text of the cell

Hi folks,

I have a Word document with cells that contain text like "Clear" or "Clear evidence" or "Bottom 30%", and I have a macro that finds cells with the text "Clear" or "Bottom" and colours them green or red respectively.

However, the macro only works when that text is the entire contents of the cell. It won't colour "Clear evidence" green or "Bottom 30%" red.

I've looked around for Word macros that might do this via wildcards, but they all seem to use the searchText command, which my current macro does not. I'm happy to switch, but this macro is the only way I've found to colour text (I found it on the web somewhere).

Here is the macro as it currently stands:

Please Login or Register  to view this content.

Thanks for your help!
Chris

Not too clued up on word, but in excel we would add wild cards to that. Something like...

Case "*Bottom*"
oCel.Shading.BackgroundPatternColor = RGB(247, 150, 70)
Case "*Clear*"

You could use:

Please Login or Register  to view this content.