You don't need a macro. You can use a wildcard Find/Replace, where:
Find = ([!1-9])[0]{1,}([0-9]{1,})
Replace = \1\2
Of course, you could encode that in a macro like the one I provided yesterday.
__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]
|