Youy could use a wildcard Find/Replace, where:
Find = ([0-9]{1,})[^13^l]([0-9]{1,}[^13^l])
Replace = \1\2
or:
Find = ([!^13]{1,})[^13^l]([!^13]{1,}[^13^l])
Replace = \1\2

The first one will work only on lines/paragraphs containing numbers; the second with any content.

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