You can indeed do it via a wildcard Find/Replace, where:
Find = <[MTWFSondayueshrit]{3,8}, [0-9]{1,2}[nrst][dht] [JFMASONDanuryebchpilgstmov]{3,9}, [12][0-9]{3}>
Replace = ^&
and you apply the appropriate formatting attributes to the replacement expression.

As coded, the above Find expression will find all dates in any of the
• dddd, d(ordinal) mmmm, yyyy
• dddd, d(ordinal) mmm, yyyy
• ddd, d(ordinal) mmmm, yyyy
• ddd, d(ordinal) mmm, yyyy
formats. Its scope could, of course, be made more restrictive.

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