Clybourn 1200 

Sub ReadAdobeFields()
RowNum = 1

Set AcroApp = CreateObject("AcroExch.App")
Set AVDoc = AcroApp.GetActiveDoc
Set PDDoc = AVDoc.GetPDDoc

Dim AcrobatApplication As Acrobat.AcroApp
Dim AcrobatDocument  As Acrobat.AcroAVDoc
Dim fcount As Long
Dim aFieldName As String

On Error Resume Next
Set AcrobatApplication = CreateObject("AcroExch.app")
Set AcrobatDocument = CreateObject("AcroExch.AVDoc")
If AcrobatDocument.Open("C:\Canvasupload\Barcode 2171416186.pdf", "") Then
    AcrobatApplication.Show
    Set AVDoc = AcrobatApplication.GetAVDoc(AcrobatDocument)
    Set AVDoc = AcrobatDocument
    Set PDDoc = AVDoc.GetPDDoc
    AcrobatDocument.GetPDDoc
End If
End Sub

Sub PDFfind()


Set WshShell = CreateObject("Wscript.Shell")
WshShell.AppActivate ("Adobe Acrobat")
'WScript.Sleep 500

'// get the active Document
Set AcroApp = CreateObject("AcroExch.App")
Set AVDoc = AcroApp.GetActiveDoc
Set PDDoc = AVDoc.GetPDDoc
Set AForm = CreateObject("AFormAut.App") 'connect to Form API for later use

maxPages = PDDoc.GetNumPages
For p = 0 To maxPages - 1  '// start the page loop
    Set PdfPage = PDDoc.AcquirePage(p) '// p  = Pagenumber (zero based)
    Set PageHL = CreateObject("AcroExch.HiliteList")  '// created to get the page text
    PageHLRes = PageHL.Add(0, 9000) '<<--SET in FILE! (Start,END[9000=All])
    Set PageSel = PdfPage.CreatePageHilite(PageHL)

    For i = 0 To PageSel.GetNumText - 1   '// start the word loop on current page
        word = PageSel.GetText(i)         '// get one word
        pdfText = pdfText & word
        Next '// gather
        Next
End Sub