MS Word SPlitting File and Saving as PDF

[markvenis]

I have a MS Word Mail Merge file that contains approx 3000 single page letters (each with an unique employee number).

What I would like to do if possible is get to a point where I have a PDF file for each letter, saved with the title as the employee identitifer.

Not sure if I can write a macro that would save and convert all, any advice would be much appreciated.

 

[Anne Troy]

Try this:
http://vbaexpress.com/kb/getarticle.php?kb_id=727

Once you do that, you should have a printer set up as PDF, right? You can just click and drag all the docs to a shortcut you created to that printer.

 

[markvenis]

Have tried it and works great thx.

The only thing I am having a problem with is changing the line of code that renames and saves the document so that it saves the document with the title being the first line of text on the page (a 6 digit employee number)

strNewFileName = Replace(docMultiple.FullName, ".doc", "_" & Right$("000" & iCurrentPage, 4) & ".doc")