PDF til text - nem og gratis ?

hej

ved godt at jeg laver det i VBA (Excel) , men anyway here goes:

1) jeg har ca 40 PDF filer
2) de skal laves over til text
3) der søges i disse for at finde et unikt nummer
4) dette nummer slås på i en DB (ADO)
5) resultatet fra DBEn giver så det nye navn til PDF filen

Problemet er bare at min måde at få PDF til txt er for langsom, så den når ikke at lave dokumentet som txt før den går videre i koden :(

den jeg har lavet er basalt set åbne adobe reader 9 og sende keys til at gemme og lukke


Function gemPDFTXT(nyfilnavne As String)

'Sæt path til acroRD32.exe
acrobat9 = "C:\Program Files\Adobe\Reader 9.0\Reader\AcroRd32.exe"
filnavn = nyfilnavne
gemPDFTXT = Left(filnavn, Len(filnavn) - 3) & "txt"

Call Shell(acrobat9 & " " & filnavn, vbNormalFocusv) 'Åbner fil
Application.Wait (Now + TimeValue("0:00:8")) 'Venter 5 sekunder, så der kan nås at åbne
Application.SendKeys ("%fv") 'Sender tasterne ALT+F og ALT +v (Filer > Gem som text)
Application.Wait (Now + TimeValue("0:00:1"))
Application.SendKeys (txtfilnavn)
Application.Wait (Now + TimeValue("0:00:1"))
Application.SendKeys ("%G") 'gem
Application.Wait (Now + TimeValue("0:00:5"))
Application.SendKeys ("^w") 'luk
End Function


hvordan får jeg en funktion som er dels hurtigere, men så man undgår at åbne programmet på denne måde???