Thema Datum  Von Nutzer Rating
Antwort
Rot PDF zusammenführen über Adobe Pro
21.06.2021 10:55:19 unknown_pc
NotSolved

Ansicht des Beitrags:
Von:
unknown_pc
Datum:
21.06.2021 10:55:19
Views:
108
Rating: Antwort:
  Ja
Thema:
PDF zusammenführen über Adobe Pro

Hallo zusammen, 

ich bin leider kein VBA-Experte aber muss ein bestehendes Makro so umschreiben, dass die Zusammenführung von PDF-Dateien auch per Adobe Pro möglich ist (vorher über Ghostscript). 

Kann vielleicht einer von Euch mir helfen, an welcher Stelle ich das Makro anpassen muss? 

Ich habe zwei Stellen identifiziert (dick markiert), kenne aber insbesondere an der zweiten Stelle nicht den entsprechenden Befehl. 

Oder habt ihr ansonsten einen Link, der eine Erklärung für Adobe Pro liefern kann? Bin leider nicht fündig geworden im Internet...

____

Sub multidoc()

  Dim fso As Object, WshShell As Object

  Dim strOrdner As String, i As Long

  Dim strMulti As String, strCommand As String, strGS As String

  Set fso = CreateObject("Scripting.FileSystemObject")

'Pfad zu gswin32c.exe anpassen

  strGS = "C:\Program Files (x86)\gs\gs9.07\bin\gswin32c.exe"

'Ausgabeordner anpassen

  strOrdner = Range("B5").Value

  Range("B2").Select

  With ActiveSheet

        strOrdner = fso.getfolder(strOrdner).ShortPath

        strGS = fso.GetFile(strGS).ShortPath

        strCommand = strGS & " -q -dSAFER -dNOPAUSE -dBATCH -sDEVICE=pdfwrite -sOutputFile=" & Chr(34)

        strCommand = strCommand & strOrdner & "\"

        strCommand = strCommand & Range("B2").Value & Chr(34) & Range("B3").Value

        'MsgBox (strCommand)

        Debug.Print strCommand

        Set WshShell = CreateObject("WScript.Shell")

        WshShell.Run strCommand, 0, True

        Set WshShell = Nothing

  End With

  Set fso = Nothing

  MsgBox "Fertig"

End Sub

_____

Danke Euch! :)

 


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 PDF zusammenführen über Adobe Pro
21.06.2021 10:55:19 unknown_pc
NotSolved