Importeren PDF in Access

Function getTextFromPDF(ByVal strFilename As String) As String
Dim objAVDoc As New AcroAVDoc
Dim objPDDoc As New AcroPDDoc
Dim objPage As AcroPDPage
Dim objSelection As AcroPDTextSelect
Dim objHighlight As AcroHiliteList
Dim pageNum As Long
Dim strText As String
Dim tCount As Long

    If objAVDoc.Open(strFilename, "") Then
        Set objPDDoc = objAVDoc.GetPDDoc
        For pageNum = 0 To objPDDoc.GetNumPages() - 1
            Set objPage = objPDDoc.AcquirePage(pageNum)
            Set objHighlight = New AcroHiliteList
            objHighlight.Add 0, 10000 ' Adjust this up if it's not getting all the text on the page
            Set objSelection = objPage.CreatePageHilite(objHighlight)
            If Not objSelection Is Nothing Then
                For tCount = 0 To objSelection.GetNumText - 1
                    strText = strText & objSelection.GetText(tCount)
                Next tCount
            End If
        Next pageNum
        objAVDoc.Close 1
    End If
    getTextFromPDF = strText

End Function