Need code to combine PDF files.

D1TrueGod · #3 08-14-2015, 05:35 AM

I am self-taught, but I’ve done 2 week’s worth of googling to attempt to resolve this particular issue. In fact, I had visited the first 2 pages solid of those Google results. Before I post code, I will point out that it is in pieces, because I’ve been able to resolve nothing.

The first thing I wanted it to do was save my Word document as a PDF:

Code:

Public Sub SavePDF()
	With Dialogs(wdDialogFileSaveAs)
		.Format = wdFormatPDF
		.Show
	End With
End Sub

And, since the documents needing combined will always have different names, I need the user to be able to choose the documents:

Code:

Public Sub openDialog()
	Dim fd As Office.FileDialog
	Set fd = Application.FileDialog(msoFileDialogFilePicker)
	With fd
		AllowMultiSelect = True
		.Title = “Select the files to merge.”
		.Filters.Clear
		.Filters.Add “Adobe Acrobat Pro”, “*.pdf”
		Filters.Add “All Files”, “*.*”
	End With
End Sub

In frustration, I also considered opening Acrobat and sending commands:

Code:

Public Sub OpenAdobe()
	Dim x As Variant
	Dim Path As String
	Dim File As Strikng
	Path = “C:\Program Files (x86)\Adobe\Acrobat 11.0\Acrobat\Acrobat.exe”
		Application.SendKeys (“%frm”)
	X = Shell(Path + “ “ + File, vbNormalFocus)
End Sub

I’m sure it’s obvious I don’t do this for a living, but I learn quickly, and have some grasp of how computer programming works; thus, I’ve been chosen to attempt to write this. I would greatly appreciate any assistance, and would be willing to speak with someone via phone if you think that would make the process easier. Thank you in advance.

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Combine multiple word files into 1 document and add section breaks	svo	Word VBA	3	08-05-2015 03:05 AM
Combine Different Word files into one file and update Table of Content	tejaspareek	Word VBA	4	11-04-2014 05:50 AM
Please help me to combine these code together	lbf200n	Word VBA	3	12-09-2012 04:22 PM
How to combine many word files in one file but to have correct pages numbers and tabl	Jamal NUMAN	Word	6	04-20-2011 02:32 PM
Combine pst files?	markg2	Outlook	2	04-26-2010 03:09 PM