NEED macro to save word doc as pdf

socrates01 · #1 07-03-2011, 11:05 PM

Hi guys,

I run a mail merge on a regular basis the output of which is a work document that has over 2000 pages. i use the below macro to split out the pages and save them into individual documents. What i really need as the end product is a set of individual pdf documents off the back of the mail merge. is there a way to to do this directly in the mail merge or alternatively can anyone help me in modifying the below macro so that when it splits the pages up it automatically saves the individual documents as pdf's.

Code:

Sub Splitter()
    Selection.EndKey Unit:=wdStory
    numlets = Selection.Information(wdActiveEndSectionNumber)
    If numlets > 1 Then numlets = numlets - 1
    Selection.HomeKey Unit:=wdStory
    BaseName = "D:\Documents and Settings\Desktop\Test mail merge\XXX"
    For Counter = 1 To numlets
        DocName = BaseName & Right("0" & LTrim(Str(Counter)), 10)
        ActiveDocument.Sections.First.Range.Cut
        Documents.Add
        Selection.Paste
        Selection.MoveLeft Unit:=wdCharacter, Count:=1
        Selection.Delete Unit:=wdCharacter, Count:=1
        ActiveDocument.SaveAs FileName:=DocName
        ActiveWindow.Close
    Next Counter
End Sub

Any help would be much appreciated

Thanks,
XXX

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Macro to save as pdf with ability to choose save as folder	rvessio	Word VBA	4	07-25-2016 12:37 PM
Macro to save as PDF but with a different name	shabbaranks	Word VBA	2	05-20-2011 01:02 AM
Macro to Save Help	clarkson001	Word	0	02-14-2011 06:41 AM
Word Macro: Save file as text with current file name	jabberwocky12	Word VBA	2	10-22-2010 12:23 PM
Macro Won't Save	lou0915	Word VBA	2	10-17-2009 08:13 PM