Splitting one document to many and saving to pdf

[ESIFWARB]

Hey Guys,

I was wondering if there is a way to accomplish this in VBA?

I have an excel document that I use mail merge to create a bunch of different reports. After completing the mail merge I want to be able to save each individual file as a pdf.

Currently I am using this to split the pages and save them as documents:

Sub BreakOnPage()

Application.Browser.Target = wdBrowsePage

For i = 1 To ActiveDocument.BuiltInDocumentProperties("Number of Pages")


ActiveDocument.Bookmarks("\page").Range.Copy

Documents.Add
Selection.Paste

Selection.TypeBackspace
ChangeFileOpenDirectory "Desktop"
DocNum = DocNum + 1
ActiveDocument.SaveAs FileName:="Report" & DocNum & ".doc"
ActiveDocument.Close


Application.Browser.Next
Next i
ActiveDocument.Close savechanges:=wdDoNotSaveChanges
End Sub

Also is it possible to use one of the merge headings to title the document rather than "DocNum"

Thanks in advance.

 

[ESIFWARB]

Bump