sascha-schorr
Goto Top

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 ?

Content-Key: 211796

Url: https://administrator.de/contentid/211796

Printed on: April 16, 2024 at 18:04 o'clock

Member: Webfuchs
Webfuchs Jul 18, 2013 at 06:17:04 (UTC)
Goto Top
"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 ...
Member: colinardo
colinardo Jul 18, 2013 updated at 08:22:25 (UTC)
Goto Top
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
Member: colinardo
colinardo Jul 18, 2013 at 09:25:54 (UTC)
Goto Top
Scheint als hab ich da was für dich gefunden:
http://www.evermap.com/autobatch.asp

Grüße Uwe
Member: sascha-schorr
sascha-schorr Jul 18, 2013 at 14:05:39 (UTC)
Goto Top
http://www.evermap.com/autobatch.asp
Vielen Dank - die Software macht genau das, was ich brauche.
Vielen lieben Dank für den Tipp.