You can do all of this via wildcard Find/Replace, without the need for a macro. For example:
Find = [0-9]{1,}
Replace = ^&
will find & replace all number sequences. All you need do is specify the replacement font colour. For the separators, you could use:
Find = [0-9][,.'][0-9]
Replace = ^&
Of course, you could also use the macro recorder to record these as a macro.

__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]