View Single Post
 
Old 06-03-2018, 03:57 PM
macropod's Avatar
macropod macropod is offline Windows 7 64bit Office 2010 32bit
Administrator
 
Join Date: Dec 2010
Location: Canberra, Australia
Posts: 22,363
macropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond repute
Default

Quote:
Originally Posted by gmaxey View Post
Someone may be allow with a simplified find and replace, but it is late here:
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]
Reply With Quote