1
 2
 3
 4
 5
 6
 7
 8
 9
10
11

   Dim DC : Set DC = CreateObject("Neevia.docConverter")

   Dim RVal : RVal = DC.mergePDF("c:\users\public\file1.pdf", "c:\users\public\file2.pdf", "c:\users\public\out.pdf")

   Set DC = Nothing

   If RVal<>0 Then
     MsgBox "There was an error merging!!!"
   Else
     MsgBox "Done!!!"
   End If