VBA Code error with Adobe Acrobat 10 Type Library

Question

Hi,
I have some code I created in Word VBA to combine several separate PDFs into a single PDF.  The code works fine with the Adobe Acrobat 9.0 Type Library and Adobe Reader 9.0 installed.
But, with the Adobe Acrobat 10 Type Library and Adobe Reader 10 installed, the code fails at the marked code below.  Any suggestions??
    Dim acrobatApp As Acrobat.acroApp
    Set acrobatApp = CreateObject("AcroExch.App")
    Dim mainPDF As Acrobat.AcroPDDoc
    Set mainPDF = CreateObject("AcroExch.PDDoc")  ****THIS IS WHERE THE CODE STOPS WITH A "TYPE MISMATCH" ERROR****
    Dim nextPage As Acrobat.AcroPDDoc
    Set nextPage = CreateObject("AcroExch.PDDoc")
    Dim numPages As Integer
    'Loop through all selected VLS, and add each one to the end of the main PDF
    For i = 0 To lstSelected.ListCount - 1
        mainPDF.Open CurDir & "\" & Replace(ThisDocument.Name, ".doc", "") & ".pdf"
        numPages = mainPDF.GetNumPages
        nextPage.Open lstSelected.List(i)
        If mainPDF.InsertPages(numPages - 1, nextPage, 0, nextPage.GetNumPages, True) = False Then
            MsgBox "Cannot insert pages"
        End If
        If mainPDF.Save(PDSaveFull, CurDir & "\" & Replace(ThisDocument.Name, ".doc", "") & ".pdf") = False Then
            MsgBox "Cannot save"
        End If
        'MsgBox lstSelected.List(i)
        nextPage.Close
    Next i

Answer 1

What if you start with a really simple VBA example? Take a look at this:
Private Sub CommandButton1_Click()
    Dim AcroApp As Acrobat.CAcroApp
    Dim theDocument As Acrobat.CAcroPDDoc
    Dim bm As Acrobat.AcroPDBookmark
    Dim thePath As String
    thePath = "c:\temp\test.pdf"
    Set AcroApp = CreateObject("AcroExch.App")
    Set theDocument = CreateObject("AcroExch.PDDoc")
    theDocument.Open (thePath)
    MsgBox "Number of pages: " & theDocument.GetNumPages
    theDocument.Close
    AcroApp.Exit
    Set AcroApp = Nothing
    Set theDocument = Nothing
    Set bm = Nothing
    MsgBox "Done"
End Sub
If this still does not work, I would reinstall Acrobat to make sure that
the TLB is not corrupt.
Karl Heinz Kremer
PDF Acrobatics Without a Net
[email protected]
http://www.khkonsulting.com