|
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! :)
|