Mrrrr's Forum (VIEW ONLY)
Un forum care ofera solutii pentru unele probleme legate in general de PC. Pe langa solutii, aici puteti gasi si alte lucruri interesante // A forum that offers solutions to some PC related issues. Besides these, here you can find more interesting stuff.
|
Nou pe simpatie:
Anna281 la Simpatie.ro
 | Femeie
24 ani
Iasi
cauta Barbat
26 - 45 ani |
|
|
Mrrrr's Forum (VIEW ONLY)ReguliInregistrareLoginPozeNu sunteti logat. Lista Forumurilor Pe Tematici
|
| #1 |
TRaPModerator
Postari: 960
|
|
First download PDFTKBuilder from homepage (setup) or PortableApps.com as portable:
https://www.angusj.com/pdftkb/
https://portableapps.com/apps/office/pd ... r_portable
https://www.pdflabs.com/tools/pdftk-the-pdf-toolkit/
Place it in a folder you desire, I created a new folder in D drive and inside I placed the PDFTKBuilder folder together with the VBS script. You will see that in the beginning of the VBS script it detects the location of the script file, then identifies the pdftk.exe in the PDFTKBuilder folder which is under the same root folder as the VBS script.
The above ensures that the script is portable, this way it can run from a USB drive for example.
This script works by dragging and dropping at least 2 PDF files onto the VBS file.
- the order of the PDF files in the merged file is the natural order in the folder, but also the first PDF that is dropped.
- so, for example, if you want the 7th PDF in a folder to be the first in the merge, select all 7 PDFs, then drag them by the 7th PDF and drop them onto the VBS script.
The merged PDF file will be saved in the same folder as the other PDFs files.
Limitations:
- you must have all the PDF files you want to merge in the same location (it is the way drag & drop works anyway)
VBS script:
Set fso = CreateObject("Scripting.FileSystemObject")
scriptPath = fso.GetAbsolutePathName(WScript.ScriptFullName)
scriptFolder = fso.GetParentFolderName(scriptPath)
pdftkPath = scriptFolder & "\PDFTKBuilder\App\pdftkbuilder\pdftk.exe"
Set objArgs = WScript.Arguments
Set WshShell = CreateObject("WScript.Shell")
If objArgs.Count < 2 Then
MsgBox "Please drag and drop at least 2 PDF files onto this script.", vbExclamation
WScript.Quit
End If
pdfList = ""
For i = 0 To objArgs.Count - 1
pdfFile = objArgs(i)
If LCase(Right(pdfFile, 4)) = ".pdf" Then
pdfList = pdfList & " """ & pdfFile & """"
End If
Next
outputPathQuoted = """" & outputPath & """"
exePathQuoted = """" & pdftkPath & """"
If pdfList = "" Then
MsgBox "No valid PDF files were provided.", vbExclamation
WScript.Quit
End If
firstFile = objArgs(0)
folderPath = Left(firstFile, InStrRev(firstFile, "\") - 1)
timeNow = Right("0" & Hour(Time), 2) & "-" & _
Right("0" & Minute(Time), 2) & "-" & _
Right("0" & Second(Time), 2)
outputPath = folderPath & "\merged_" & timeNow & ".pdf"
outputPathQuoted = """" & outputPath & """"
exePathQuoted = """" & pdftkPath & """"
cmd = "cmd /c " & """" & exePathQuoted & pdfList & " cat output " & outputPathQuoted & """"
'i = inputbox("asdasda", , cmd)
WshShell.Run cmd, 0, True
MsgBox "PDF files merged: " & vbCrLf & outputPath, vbInformation |
Source:
ChatGPT
|
|
| |
|
