' Данная процедура создает один  .pdf файл из нескольких исходных .pdf файлов
Sub pdf_plus_pdf(ByVal pathItog As String, ByRef arr_files() As String)
 'pathItog - полное имя результирующего файла
 'arr_files() массив, содержащий полные имена файлов, которые нужно склеивать
   
    Dim numPages As Integer
    Dim AcroApp As Acrobat.CAcroApp '
    Dim i As Integer
    
    Dim NewDocument As Acrobat.CAcroPDDoc
    Dim OldDocument As Acrobat.CAcroPDDoc
    
    Set AcroApp = CreateObject("AcroExch.App")
    Set NewDocument = CreateObject("AcroExch.PDDoc")
    Set OldDocument = CreateObject("AcroExch.PDDoc")
        
    NewDocument.Open (arr_files( 1 ))
    For i =  2  To UBound(arr_files())
        Debug.Print arr_files(i)
        OldDocument.Open (arr_files(i))
          numPages = NewDocument.GetNumPages()
        If NewDocument.InsertPages(numPages -  1 , OldDocument,  0 , OldDocument.GetNumPages(), True) = False Then
            MsgBox "Невозможно вставить страницы"
        End If
        OldDocument.Close
    Next i
    
    If NewDocument.Save(PDSaveFull, pathItog) = False Then
        MsgBox "Невозможно сохранить измененный документ"
    End If
    
    NewDocument.Close
    AcroApp.Exit
    Set AcroApp = Nothing
 End Sub