taglia pdf - vbs

'

Option explicit

'

' vbs - drag and drop

' utilizza Ghostscript per ritagliare una parte di un file pdf.

'

' FORMAT_A4 PDF = 595.28 841.89

'

Dim objA

Set objA = Wscript.Arguments

if objA.count = 0 Then

Wscript.Echo "Serve almeno 1 file pdf " ' verifica che ci siano argomenti

Wscript.Quit

End If

'

Dim objFSO

Set objFSO = CreateObject("Scripting.FileSystemObject")

dim quantifile, contali, nomefile, filepdf, suffisso, nomefilepdf

'

quantifile = objA.count - 1

' ricerca file pdf passatti come argomenti

for contali = 0 to quantifile

nomefile = trim(obja(contali))

suffisso = lcase(objFSO.GetExtensionName(nomefile))

if suffisso = "pdf" then

filepdf = nomefile

nomefilepdf = objFSO.GetFileName(nomefile)

call croppdf(filepdf, nomefilepdf)

end if

next

'

sub croppdf(filedatagliare, pnomefilepdf)

'

Dim wsh, esegui, attesa

Set wsh = CreateObject("WScript.Shell")

'

esegui = ""

esegui = esegui & "C:\Programmi\gs\gs8.64\bin\gswin32 -sDEVICE=pdfwrite -o "

esegui = esegui & " C:\pdf\" & pnomefilepdf

' [da sinistra] [dal basso] [da destra ] [dall alto]

esegui = esegui & " -c ""[/CropBox [0 610 595 841 ] /PAGES pdfmark"" -f "

esegui = esegui & filedatagliare

attesa = wsh.Run (esegui, 1, true) '



'

end sub

' ====