Thema Datum  Von Nutzer Rating
Antwort
Rot VB Script für PDF zu Textdatei
26.04.2022 16:03:45 Ollow_AM
NotSolved
27.04.2022 10:34:06 Ollow_AM
NotSolved
10.05.2022 10:17:43 Ollow_AM
NotSolved

Ansicht des Beitrags:
Von:
Ollow_AM
Datum:
26.04.2022 16:03:45
Views:
76
Rating: Antwort:
  Ja
Thema:
VB Script für PDF zu Textdatei

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


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot VB Script für PDF zu Textdatei
26.04.2022 16:03:45 Ollow_AM
NotSolved
27.04.2022 10:34:06 Ollow_AM
NotSolved
10.05.2022 10:17:43 Ollow_AM
NotSolved