I would do this via two consecutive find/replaces. You can record these steps and tidy up the code to make it a macro.

Find: \([0-9\-,]{1,}\)
Replace with: leave box empty but set font format to red
Wildcards On

Find: [\(\)]
Replace with: leave box empty but set font format to auto or black
Wildcards On

__________________
Andrew Lockton
Chrysalis Design, Melbourne Australia