Batch Aufruf Adobe Acrobat Prof X - OCR Schrifterkennung

Wir haben ein Verzeichnis, in dem PDF's abgelegt werden.

Abends um 18 Uhr soll ein Batch-Aufruf die PDF's des aktuellen Tages mit dem Adobe Acrobat Prof X OCR technisch bearbeiten (und gleichzeitig richtig drehen).
Derzeit bearbeiten wir das manuell mit dem Adobe Acrobat Prof X mit "Texterkennung in mehreren Dateien" (Stapelverarbeitung).

Gibt es da eine Möglichkeit ?

Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben

Content-ID: 211796

Url: https://administrator.de/forum/batch-aufruf-adobe-acrobat-prof-x-ocr-schrifterkennung-211796.html

Ausgedruckt am: 25.12.2024 um 02:12 Uhr

4 Kommentare

Neuester Kommentar

"Actions wizard replaces Batch scripts in Acrobat X" -> http://blogs.adobe.com/vikrant/2010/11/actions-wizard-batch-scripts/

Versuchs mit dem Aktionsassistenten. -> http://help.adobe.com/de_DE/acrobat/using/WSdd9016941e183011-149709e812 ...

Hallo sascha-schorr,
Acrobat hat eine integrierte Scripting-Schnittstelle mit der man dies automatisieren könnte. Auf diese kann man dann z.B. mit VBS darauf zugreifen. Müssen die PDFs immer in die selbe Richtung gedreht werden oder ist die Drehung unterschiedlich ?
Wenn du willst schreib ich Dir mal ein Basis-Script für den Anfang, da der Einstieg in das Scripting mit Acrobat doch einige Zeig kostet.

Grüße Uwe

--edit--
sehe gerade das das automatisieren der OCR-Funktion mit Acrobat-X nicht möglich ist. Seit den letzten Acrobat-Versionen 8 und 9 hat sich hier die Scripting-Situation deutlich verschlechtert, da Adobe sehr viele Funktionen wahrscheinlich der Sicherheit geopfert hat.

Trotzdem vielleicht hilft dir folgendes Script schon mal weiter das mit Hilfe von Acrobat alle PDF-Dateien in einem Ordner dreht und speichert:
(Pfad zum Ordner in Zeile 1 angeben, Rotationswinkel in Zeile 2)

folderPDF = "D:\DeinOrdnerZuDenPDF"  
ROTATIONSWINKEL = 0
Set objAcro = CreateObject("AcroExch.App")  
Set fso = WScript.CreateObject("Scripting.Filesystemobject")  
For Each file In fso.GetFolder(folderPDF).Files
	If LCase(Right(file.Name,3)) = "pdf" Then  
		BatchProcessFile file.Path
	End If
Next
Set objAcro = Nothing
Wscript.echo "Finished Processing PDFs in: '" & folderPDF & "'"  


Sub BatchProcessFile(f)
	Set docAV = CreateObject("AcroExch.AVDoc")  
	Set docPD = CreateObject("AcroExch.PDDoc")  
	ret = docAV.Open(f,"")  
	Set docPD = docAV.GetPDDoc()
	Set jsDoc = docPD.GetJSObject
	'objAcro.Show  
	jsDoc.setPageRotations 0,jsDoc.numPages - 1,ROTATIONSWINKEL
	jsDoc.saveAs(f)
	jsDoc.closeDoc()
	'objAcro.Hide()  
	'objAcro.Exit()  
	
	Set jsDoc = Nothing
	Set docAV = Nothing
	Set docPD = Nothing
End Sub