Version imprimable du sujet

sips -s dpiWidth 300 -s dpiHeight 300 -s format png fichier_pdf_source --out fichier_destination-1.png

use AppleScript version "2.3.1"
use scripting additions
use framework "Foundation"
use framework "Quartz" -- required for PDF stuff

#===== Handlers

-- Supposed to create a new PDF file and a new TIFF for every page from the passed PDF file.
# Based upon a handler designed by Shane STANLEY

on splitPDF:thePath
set inNSURL to current application's |NSURL|'s fileURLWithPath:thePath

set thePDFDocument to current application's PDFDocument's alloc()'s initWithURL:inNSURL
# CAUTION. theList contain indexes of pages numbered starting from 1, but ASObjC number them starting from 0
set theCount to thePDFDocument's pageCount() as integer
repeat with i from 1 to theCount
set pathNSString to (current application's NSString's stringWithString:thePath)
set bareSString to current application's NSString's stringWithFormat_("%@%@", pathNSString's stringByDeletingPathExtension(), ("-page " & text -2 thru -1 of ((100 + i) as text)))

set newPDFPath to (bareSString's stringByAppendingPathExtension:"pdf")
set outNSURL to (current application's |NSURL|'s fileURLWithPath:newPDFPath)

set newTiffNSString to (bareSString's stringByAppendingPathExtension:"tiff")
set tiffPath to newTiffNSString as text

set thePDFPage to (thePDFDocument's pageAtIndex:(i - 1))
set newPDFDoc to current application's PDFDocument's alloc()'s init()
(newPDFDoc's insertPage:thePDFPage atIndex:0)
(newPDFDoc's writeToURL:outNSURL)

set theImage to (current application's NSImage's alloc()'s initWithContentsOfURL:outNSURL)
set theData to theImage's TIFFRepresentation()
-- make imagerep from data
set newRep to (current application's NSBitmapImageRep's imageRepWithData:theData)
set theData to (newRep's representationUsingType:(current application's NSTIFFFileType) |properties|:{NSTIFFCompressionNone:1})
set theResult to (theData's writeToFile:tiffPath atomically:true)
end repeat
end splitPDF:


#===== Caller

set thePath to POSIX path of (choose file with prompt "Choose a PDF file." of type {"PDF"})
its splitPDF:thePath

Yvan KOENIG running High Sierra 10.13.6 in French (VALLAURIS, France) dimanche 24 février 2019 15:25:32

use AppleScript version "2.3.1"
use scripting additions
use framework "Foundation"
use framework "Quartz" -- required for PDF stuff

#===== Handlers

-- Supposed to create a new PDF file and a new PNG for every page from the passed PDF file.
# Based upon a handler designed by Shane STANLEY

on splitPDF:thePath
set inNSURL to current application's |NSURL|'s fileURLWithPath:thePath

set thePDFDocument to current application's PDFDocument's alloc()'s initWithURL:inNSURL
# CAUTION. theList contain indexes of pages numbered starting from 1, but ASObjC number them starting from 0
set theCount to thePDFDocument's pageCount() as integer

# Build three descriptors only once
set pathNSString to (current application's NSString's stringWithString:thePath)
set tempPDFPath to POSIX path of ((path to temporary items as text) & "temp_pmet.pdf")
set tempNSURL to (current application's |NSURL|'s fileURLWithPath:tempPDFPath)

repeat with i from 1 to theCount
set newPngNSString to current application's NSString's stringWithFormat_("%@%@.%@", pathNSString's stringByDeletingPathExtension(), ("-page " & text -2 thru -1 of ((100 + i) as text)), "png")
set pngPath to newPngNSString as text

set thePDFPage to (thePDFDocument's pageAtIndex:(i - 1))
set newPDFDoc to current application's PDFDocument's alloc()'s init()
(newPDFDoc's insertPage:thePDFPage atIndex:0)
(newPDFDoc's writeToURL:tempNSURL)

set theImage to (current application's NSImage's alloc()'s initWithContentsOfURL:tempNSURL)
set theData to theImage's TIFFRepresentation()
-- make imagerep from data
set newRep to (current application's NSBitmapImageRep's imageRepWithData:theData)
set theData to (newRep's representationUsingType:(current application's NSPNGFileType) |properties|:{NSTIFFCompressionNone:1})
set theResult to (theData's writeToFile:pngPath atomically:true)
end repeat
end splitPDF:


#===== Caller

set thePath to POSIX path of (choose file with prompt "Choose a PDF file." of type {"PDF"})
its splitPDF:thePath


Yvan KOENIG running High Sierra 10.13.6 in French (VALLAURIS, France) dimanche 24 février 2019 17:58:09

(*

split PDF into TIFF or PNG

*)

use AppleScript version "2.3.1"
use scripting additions
use framework "Foundation"
use framework "Quartz" -- required for PDF stuff
--global theData, newImage

my Germaine()

#===== Handlers

# Create a new TIFF/PNG for every page from the passed PDF file.
# Based upon a handler designed by Shane STANLEY

on splitPDF:thePath

set createTIFF to false # true would create TIFFs
if createTIFF then
set theExt to "tiff"
set NSBitmapImageFileType to a reference to 0
else
set theExt to "png"
set NSBitmapImageFileType to a reference to 4
end if

set inNSURL to current application's |NSURL|'s fileURLWithPath:thePath

set thePDFDocument to current application's PDFDocument's alloc()'s initWithURL:inNSURL
# CAUTION. theList contain indexes of pages numbered starting from 1, but ASObjC number them starting from 0

set theCount to thePDFDocument's pageCount() as integer

# Build this descriptor only once
set pathNSString to current application's NSString's stringWithString:thePath

repeat with i from 1 to theCount
set newTiffNSString to current application's NSString's stringWithFormat_("%@%@.%@", pathNSString's stringByDeletingPathExtension(), ("-page " & text -2 thru -1 of ((100 + i) as text)), theExt)
set tiffPath to newTiffNSString as text

set thePDFPage to (thePDFDocument's pageAtIndex:(i - 1))

set theData to thePDFPage's dataRepresentation()

set theImage to (current application's NSImage's alloc()'s initWithData:theData)

set {theWidth, theHeight} to (theImage's |size|() as list)

set newRep to (current application's NSBitmapImageRep's alloc()'s initWithBitmapDataPlanes:(missing value) pixelsWide:theWidth pixelsHigh:theHeight bitsPerSample:8 samplesPerPixel:4 hasAlpha:true isPlanar:false colorSpaceName:(current application's NSDeviceRGBColorSpace) bitmapFormat:(current application's NSAlphaFirstBitmapFormat) bytesPerRow:0 bitsPerPixel:32)

set theContext to current application's NSGraphicsContext's currentContext()
(current application's NSGraphicsContext's setCurrentContext:(current application's NSGraphicsContext's graphicsContextWithBitmapImageRep:newRep))
--set the active color to white
current application's NSColor's whiteColor()'s |set|()
-- fill the bitmapImageRep with white
current application's NSRectFill({origin:{x:0, y:0}, |size|:{width:theWidth, height:theHeight}})
-- draw from original to new
(theImage's drawInRect:{origin:{x:0, y:0}, |size|:{width:theWidth, height:theHeight}} fromRect:{origin:{x:0, y:0}, |size|:{width:theWidth, height:theHeight}} operation:(current application's NSCompositeSourceOver) fraction:1.0)
-- restore context
(current application's NSGraphicsContext's setCurrentContext:theContext)

set theData to (newRep's representationUsingType:NSBitmapImageFileType |properties|:{NSTIFFCompressionNone:1})
set theResult to (theData's writeToFile:tiffPath atomically:true)
end repeat
end splitPDF:


#===== Caller

on Germaine()
set thePath to POSIX path of (choose file with prompt "Choose a PDF file." of type {"PDF"})
its splitPDF:thePath
end Germaine