Hallo liebe Community,
ich nutze seit längerem in einem Programm einen VBS-Code der mir ein PDF öffnet und dieses anschließend als "accesstext" speichert.
Im Rahmen allgemeiner Aktualisierungen werden einige Rechner auf Acrobat Pro 2020 umgestellt. Leider habe ich hier das Problem das mein kleines Script nicht mehr funktioniert und er mir mit einer Fehlermeldung in Zeile 18 aussteigt.
Hier mal mein Quellcode
if WScript.Arguments.Count < 2 Then
WScript.Echo "Error! Please specify the source path and the destination. Usage: TestCon SourcePath.xls Destination.txt"
Wscript.Quit
End If
Dim acroAppObj : set acroAppObj = CreateObject("AcroExch.App") ' As Acrobat.AcroApp:
Set myAcroDoc = CreateObject("AcroExch.AVDoc")
Dim acroADocObj : Set acroADocObj = Nothing' As Acrobat.AcroAVDoc
Dim acroPDocObj ' As Acrobat.AcroPDDoc
Dim jsObj ' As Object
Dim fsObj : Set fsObj = CreateObject("Scripting.FileSystemObject")
path = Wscript.Arguments.Item(0)
myAcroDoc.Open path, path
Set acroADocObj = acroAppObj.GetActiveDoc ' or open pdf
Set acroPDocObj = acroADocObj.GetPDDoc
Set jsObj = acroPDocObj.GetJSObject
lFileName = Wscript.Arguments.Item(1)
If fsObj.FileExists(lFileName) Then fsObj.DeleteFile lFileName
jsObj.SaveAs lFileName, "com.adobe.acrobat.accesstext" ' converts pdf to text
acroADocObj.Close False
Set acroADocObj = Nothing
Set acroPDocObj = Nothing
Set jsoObj = Nothing
Aussteigen tut er mir an folgender Stelle:
jsObj.SaveAs lFileName, "com.adobe.acrobat.accesstext"
Hat sich hier ab der Version 2020 etwas im Aufruf geändert. Was ich bemerkt habe ist, das im Adobe-Menü das speichern als Text nicht mehr im Menüpunkt "SaveAs" sonder unter "Export" steht. Kann es daran liegen das ich hier eine andere Funktion in meinem "jsObj" aufrufen muss.
Vielleicht hat jemand auch einen aktuellen Link zu einer Doku über die Adobeaufrufe.
Vielen Dank und noch einen guten Tag
|