You don't need a macro for this - it can be done via a single wildcard Find/Replace, where:
Find = (<[JFMASOND][abceghilmnoprstuvy]{2,8} )([0-9]{1,2}), ([12][0-9]{3}>)
Replace = \2 \1\3
You could, of course, turn the above into a wildcard Find/Replace macro.

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