0

I typically have multiple documents of different types (docx, pdf, png, jpg) that need to be combined into a single PDF file. For example, I have the following files right now in the directory:

DeclarationForHearing20180512.docx, ExhibitA.pdf, ExhibitB.png,
ExhibitC.jpg, TestimonyWitness1.docx, Evidence212232.pdf, etc...

I need to combine these into a single PDF file. Right now, I go into each Word doc and export it as PDF. Then I convert all the image files (png, jpg) into PDFs by printing to a PDF printer. Then I use PDFSam Basic to merge all the resulting PDFs into a single one.

As you can probably tell, this is a tedious procedure. Ideally, I'd like to write a batch file (or similar: powershell or vbs) that looped through the files in the directory, did all the necessary conversions, then merged into the final document.

Is it possible to do something like that?

2

1 Answer 1

1

I don't think just on single click the JOB can be accomlished. Therefore I would like to suggets solution for Few of them.

1. VBA code to convert multiple Word files in a folder to individual pdf files.

Sub convertword()
    Dim irow As Integer
    Dim objWord As Word.Application
    Dim newdoc As Word.Document
    Set objWord = New Word.Application
    objWord.Visible = True

    irow = 4
    Do While Cells(irow, 2) <> Empty
        Set newdoc = objWord.Documents.Open(Cells(irow, 2).Value)
        newdoc.ExportAsFixedFormat OutputFileName:=Cells(irow, 3).Value, _
            ExportFormat:=wdExportFormatPDF
        newdoc.Close (False)
        irow = irow + 1
    Loop
    objWord.Quit
End Sub

N.B. Add a reference to Microsoft Word 15.0 Object Library and then try this code.

This will help you to combine PDF files with VBA.

Dim objCAcroPDDocDestination As Acrobat.CAcroPDDoc
Dim objCAcroPDDocSource As Acrobat.CAcroPDDoc
Dim i As Integer
Dim iFailed As Integer

On Error GoTo NoAcrobat:
Set objCAcroPDDocDestination = CreateObject("AcroExch.PDDoc")
Set objCAcroPDDocSource = CreateObject("AcroExch.PDDoc")


objCAcroPDDocDestination.Open (arrFiles(LBound(arrFiles))) 'open the first file

   For i = LBound(arrFiles) + 1 To UBound(arrFiles)
        objCAcroPDDocSource.Open (arrFiles(i))
        If objCAcroPDDocDestination.InsertPages(objCAcroPDDocDestination.GetNumPages - 1, objCAcroPDDocSource, 0, objCAcroPDDocSource.GetNumPages, 0) Then
          MergePDFs = True
        Else

          iFailed = iFailed + 1
        End If
        objCAcroPDDocSource.Close
    Next i
objCAcroPDDocDestination.Save 1, strSaveAs 'Save it as a new name
objCAcroPDDocDestination.Close
Set objCAcroPDDocSource = Nothing
Set objCAcroPDDocDestination = Nothing

NoAcrobat:
If iFailed <> 0 Then
    MergePDFs = False
End If
On Error GoTo 0
End Function

N.B. Add Adobe Acrobat X.0 Type Library from Reference.

4
  • Thanks. This gets me started. Are there anyway to call these VBA methods from command line? Apr 19, 2018 at 18:15
  • " Add Adobe Acrobat X.0 Type Library from Reference." - does it work also if OP doesn't have Acrobat installed? Apr 20, 2018 at 9:42
  • @MátéJuhász, If you want to use the Adobe Acrobat type library, you need to have Adobe Acrobat installed. :-) Apr 20, 2018 at 11:10
  • 1
    If you have Acrobat already, you can use its built in functionality to combine multiple, various type files into pdf, don't need to have a macro for that. Apr 20, 2018 at 11:12

You must log in to answer this question.

Not the answer you're looking for? Browse other questions tagged .