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

macropod · #2 07-04-2011, 01:22 AM

Hi socrates01,

Modifying you code to save as PDF is quite simple! Change:
ActiveDocument.SaveAs FileName:=DocName
to:
ActiveDocument.SaveAs FileName:=DocName, FileFormat:=wdFormatPDF

PS: When posting code, please use code tags.

socrates01 · #3 07-10-2011, 10:30 PM

Thanks very much for the code, it works perfectly. Except for one thing. when i run the macro it starts splitting the doucment and saving the individual files as pdf's but for every file plit it prompts me to save/don't save/cancel the saving of the document as a .docx format as well. As i will be using this macro of many thousands of pages (hence many individual files) prompts will not be useful. can anyone help out?

Many thanks,
XXX

macropod · #4 07-11-2011, 05:12 AM

Hi socrates01,

Try changing the line:
ActiveWindow.Close
to:
ActiveWindow.Close SaveChanges = False

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