Hi jkallstate,

Based on what you've posted, you should be able to do the lot with just two wildcard Find/Replace operations, where:
Find = ( [0-9])
Replace = ,\1
Find = ( [A-z]{1,}, [0-9])
Replace = ,\1

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