Given that the folder paths are different, you could try a wildcard Find/Replace, where:
Find = (*)([A-Za-z0-9 ._\-\(\)\[\]\{\}]{1,}^13)
Replace = \2

There may be some other valid filename characters that the Find expression doesn't cover, but you can add them easily enough.

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