Want to remove blank page when splitting Word document

Good morning,

I have a macro, copied from another person I found by googling, that helps to split a Word document by a certain number of pages. My issue is that it adds an additional blank page at the end of each split document. I don't know enough about the VBA coding language to know how to fix this. Can anyone shed some light? Here is the code below:

Please Login or Register  to view this content.

Thank you in advance!
Clare

You could try

Please Login or Register  to view this content.

I haven't tested this but the idea is that you avoid copying the page break (which causes the new page) by going back one character. You might need to go forward one character after copying to avoid having a blank page at the start of each sub-document.