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.