It appears from your code that the pages are separated by manual page breaks, in which case you could use Find/Replace to change them to Section breaks, then use the 'Split Merged Output to Separate Documents' macro in the
Mailmerge Tips and Tricks thread (
https://www.msofficeforums.com/mail-...ps-tricks.html) to do the splitting and renaming. That, of course, assumes the text containing your preferred names is in a consistent location on each page.