senin office versiyonunu bilmiyorum modi kodları 2007 office sonrasında çalışmıyor 2010 için bir yükleme önerisi var ama hiç denemedim ondan dolayı sana daha basit bir pdf tarama kodu gönderiyorum ancak bu kodu kullanabbilmen için sayfaları çoksayfalı ve aranabilir pdf olarak kaydedeceksin 
Sub pdftara()

    Dim objApp As Object
    Dim objPDDoc As Object
    Dim objjso As Object
    Dim wordsCount As Long
    Dim page As Long
    Dim i As Long
    Dim strData As String
    Dim strFileName As String
      strFileName = CurrentProject.Path & "\" & "20150716110246646.pdf"
    Set objApp = CreateObject("AcroExch.App")
    Set objPDDoc = CreateObject("AcroExch.PDDoc")
    'AD.1 open file, if =false file is damage
    If objPDDoc.Open(strFileName) Then
        Set objjso = objPDDoc.GetJSObject
        For page = 0 To objPDDoc.GetNumPages - 1
            wordsCount = objjso.GetPageNumWords(page)
          MsgBox objjso.getPageNthWord(page, 10)
        Next
          Else
       End If
End Sub
 kod ilk sayfaya gidiyor sayfadaki metinleri sayıyor senin sayfada 49 metin var ve bunun 10. olanı makinenin seriali olan  V9414800324 metin ve bunu msgbox ile gösteriyor sonra diğer sayfaya gidiyor ve ordaki seriali gösteriyor anlayacağın her metinin bir sırası var 27. metin ise 12004 bu işte sen bu şekilde metinlerin sırasını belirterek 2000 tane makinenin çıktılarını tek bir tıklama ile veritabanına aktarırsın örnek ektedir.