You can do without the need for a macro, using a wildcard Find/Replace.

You appear to be working with you're working with US-format dates, so try:
Find = <[JFMASOND][anuryebchpilgstmov]{2,8} [0-9]{1,2} [12][0-9]{3}>
Replace = ^&
and setting the replacement font format to bold.

For UK-format dates (d mmm yyyy), the Find/Replace expression would be:
Find = <[0-9]{1,2} [JFMASOND][anuryebchpilgstmov]{2,8} [12][0-9]{3}>
Replace = ^&
and setting the replacement font format to bold.

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