You don't need to modify the code. All you need do is some basic preparation, then run the macro and input the appropriate responses to the prompts.

The basic preparation consists of two wildcard Find/Replace operations, where:
Find = (^13[0-9]{1,})([A-Za-z])
Replace = \1 \2
Find = [0-9]{1,}
Replace = [^&]
with the second Find expression set for superscript.

In response to the prompts, input:
2
[#]
[#]
and click 'Yes'
When processing concludes, you can either convert the endnotes to footnotes or reset their numbering format (endnotes default to roman numerals).

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