VBA to save word doc into individual pages and name according to first line on each page

Hello,

I need a VBA code to save a large word file into individual pages and for it to rename each doc according to the first line on the page. I've found the two codes below, which seem to do part of what I need, but can't figure out how to merge the two.

Please Login or Register  to view this content.

Please Login or Register  to view this content.

Thanks!

Such documents are usually the result of a mailmerge. If that's so in this case, see Split Merged Output to Separate Documents in the Mailmerge Tips and Tricks thread at:
http://www.msofficeforums.com/mail-m...ps-tricks.html
or:
http://windowssecrets.com/forums/sho...ips-amp-Tricks

Regardless, the solution depends on what separates your pages. If they're separated by Section breaks, the macro in either of the links will serve as the basis for the splitting. If they're separated by manual page breaks, a different (though not too difficult) approach can be applied; otherwise, things are a whole lot more complicated because what Word thinks constitutes a page depends on how it optimizes the document's layout to suit the active printer.

Code Tags Added
Your post does not comply with Rule 3 of our Forum RULES. Use code tags around code.

Posting code between [CODE]Please [url=https://www.excelforum.com/login.php]Login or Register [/url] to view this content.[/CODE] tags makes your code much easier to read and copy for testing, it also maintains VBA formatting.

Highlight your code and click the # icon at the top of your post window. More information about these and other tags can be found at http://www.excelforum.com/forum-rule...rum-rules.html



(I have added them for you today. Please take a few minutes to read all Forum Rules and comply in the future.)

If your document isn't split in a consistent manner, that makes it unnecessarily difficult to process with a macro. I'd suggest inserting Section breaks where required (Find/Replace can be used to replace manual page breaks, if your document has them, with Section breaks), then running the macro.