gervirgin.blogg.se - Pdfsam editor

Set PartDocs(i) = CreateObject("AcroExch.PDDoc") MsgBox "File not found" & vbLf & p & a(i), vbExclamation, "Canceled"

If Len(Dir(p & DestFile)) Then Kill p & DestFile If Right(MyPath, 1) = "\" Then p = MyPath Else p = MyPath & "\" Sub MergePDFs(MyPath As String, MyFiles As String, Optional DestFile As String = "MergedFile.pdf")ĭim a As Variant, i As Long, n As Long, ni As Long, p As Stringĭim AcroApp As New Acrobat.AcroApp, PartDocs() As Acrobat.CAcroPDDoc SetProfileSetting "ShowProgress", "false"

SetProfileSetting "OpenWithPdfArchitect", "false" SetProfileSetting "Printing.SelectPrinter", "SelectedPrinter" SetProfileSetting "Printing.PrinterName", "PDFCreator" If fso.FileExists(v) Then oPDF.PrintFile v Set oPDF = New PDFCreator.PdfCreatorObj 'PDFCreator.clsPDFCreator Set fso = CreateObject("Scripting.FileSystemObject") Sub PDFCreatorCombine(sPDFName() As String, sMergedPDFname As String)ĭim oPDF As PDFCreator.PdfCreatorObj, q As PDFCreator.Queue ' Designed for early bind, set reference to: PDFCreator - Your OpenSource PDF Solution 'Macro Purpose: Print to PDF file using PDFCreator If vbYes = MsgBox(s, vbYesNo + vbQuestion, "Open?") Then Shell ("cmd /c " & """" & s & """")

View topic - Splitting a PDF using the Console in VBA.

Here's a thread from their help forum in which a user provides a VBA code example that worked for him. PDF Split and Merge | Split and merge pdf documents, free and open source I don't know how/if it will work for you, but it does appear to have an interface that could be called from VBA Shell. Here's an open source product I found through a quick web search. With that, you might be able to use VBA to call that through the Shell function. If you need to accomplish this task through VBA, then I'd suggest you look for 3rd party software that has a command-line interface. There's many free utilities and web services that allow a user to combine PDFs through the use of their interface. Combining existing PDF files into a single file is a different task. I sometimes assemble multiple worksheets (from the same workbook or many), then export those to a single PDF file. FWIW, I'm not aware of any way to do that with Excel alone.