Wozu die Batch?

Ich verwende gern die von ebs17 erstellte Funktion mit dem freizugänglichen pdftotext:

Public Function fGetPDFText(ByVal sExecuteFile As String, _
                        ByVal sSourcePDF As String, _
                        ByVal sTargetTXT As String) As Boolean
'// ------------------------------------------------------------------------------------
'// Methode:   | Erzeugen einer Textdatei aus einem PDF-Dokument
'// ------------------------------------------------------------------------------------
'// Parameter: | sExecuteFile - vollständiger Pfad der pdftotext.exe
'//            | sSourcePDF   - vollständiger Pfad des Quelldokumentes (PDF)
'//            | sTargetTXT   - vollständiger Pfad des Zieldokumentes (TXT)
'// ------------------------------------------------------------------------------------
'// Rückgabe:  | True bei Erfolg
'// ------------------------------------------------------------------------------------
'// Autor:     | ebs17
'// ------------------------------------------------------------------------------------
'// Hinweis:   | pdftotext.exe beziehbar über http://www.foolabs.com/xpdf/download.html
'//            | aktueller Download zum 18.01.2011:
'//            | ftp://ftp.foolabs.com/pub/xpdf/xpdf-3.02pl5-win32.zip
'// ------------------------------------------------------------------------------------

   Dim sCommand As String
   Dim vResult As Variant
   sCommand = sExecuteFile & " -raw " & sSourcePDF & " " & sTargetTXT
   vResult = Shell(sCommand, vbHide)
   fGetPDFText = Not IsNull(vResult)
End Function

Hinweis:

Es lohnt sich, die zulässigen Paramter von pdftotext nachzulesen... ggf die Funktion geringfügig anpassen.