Multiple replace does not work with 2013

[fprm67]

I used attached vba for multiple Find and Replace, but unfortunately this does not work with Word 2013.
This is the link of the vba: http://gregmaxey.com/word_tip_pages/...d_replace.html

I also tried the codes that you reported (https://www.msofficeforums.com/word-...html#post34254) but does not work with Word 2013. Could you please help with the correction of attached vba or your vba code so that it is compatible with Word 2013?

Thank you and kind regards,
Far