Cut a merged document in several PDFs

Question

After working on a project for Numbers, I applied the same scheme to Pages.
Assuming that you are merging datas from Numbers or AddressBook in a Pages Layout document, here is a script allowing you to print a PDF for each correspondent.
It may be done because we may
delete unwanted sections
keep only one
save it in a PDF
and repeat the task for an other section.
Here is the script:
--[SCRIPT 4mergedLayout]
Enregistrer le script en tant que Script : 4mergedLayout.scpt
déplacer le fichier ainsi créé dans le dossier
<VolumeDeDémarrage>:Users:<votreCompte>:Library:Scripts:Applications:Pages:
Il vous faudra peut-être créer le dossier Pages et peut-être même le dossier Applications.
Ouvrir le document Mise en pages résultant d'une fusion de données
menu Scripts > Pages > 4mergedLayout
crée un fichier PDF pour chaque section du document.
--=====
L'aide du Finder explique:
L'Utilitaire AppleScript permet d'activer le Menu des scripts :
Ouvrez l'Utilitaire AppleScript situé dans le dossier Applications/AppleScript.
Cochez la case "Afficher le menu des scripts dans la barre de menus".
--=====
Save the script as a Script: 4mergedLayout.scpt
Move the newly created file into the folder:
<startup Volume>:Users:<yourAccount>:Library:Scripts:Applications:Pages:
Maybe you would have to create the folder Pages and even the folder Applications by yourself.
Open the Layout document build by a Merge session.
menu Scripts > Pages > 4mergedLayout
create a PDF for every embedded section.
--=====
The Finder's Help explains:
To make the Script menu appear:
Open the AppleScript utility located in Applications/AppleScript.
Select the "Show Script Menu in menu bar" checkbox.
--=====
Yvan KOENIG (VALLAURIS, France)
2010/05/11
--=====
Some global constants
property targetFolderName : "Merged pages or sections"
property folderOnDesktop : true
true = stores the PDFs in a folder on the Desktop
false = stores the PDFs in a subfolder of the Documents folder
property useDateStamp : false
true = inserts a dateTimeStamp in the names of PDFs
false = doesn't insert a dateTimeStamp in the names of PDFs
--=====
on run
tell application "Pages"
set dName to name of document 1
tell document 1
set maybe to (get body text) is missing value
end tell
end tell -- Pages
if not maybe then
if my parleAnglais() then
error "The document “" & dName & "” is not a Layout one !"
else
error "“" & dName & "” n’est pas un document Mise en page !"
end if -- parleAnglais…
end if -- not maybe…
Build some constants
(1) Prepare a folder to store the PDF reports
if folderOnDesktop then
set p2d to path to desktop folder as text
else
set p2d to path to documents folder as text
end if
set targetFolder to p2d & targetFolderName & ":"
tell application "System Events"
if not (exists folder targetFolder) then make new folder at end of folder p2d with properties {name:targetFolderName}
end tell -- System Events
(2) Grabs the path to the source spreadsheet
tell application "Pages" to set thePath to path of document dName (* an Unix path *)
tell application "System Events" to set thePath to (path of disk item thePath) as text
(3) Build the name and the path of the temporary Pages document
set tempFolderHFS to path to temporary items
set tempDoc to (tempFolderHFS as text) & dName
tell application "System Events"
if exists disk item tempDoc then delete disk item tempDoc
end tell
tell application "Pages" to tell document dName
set nbSections to count of sections
end tell -- Pages
* Here we enter the main loop
repeat with i from 1 to nbSections
set sectionID to i
Grabs datas to build the name of the PDF then
save the document with the temporary sheet in the temporary folder
tell application "System Events" to make new file at end of tempFolderHFS with properties {name:dName}
set fullName to dName & "_section#" & text -5 thru -1 of ("00000" & sectionID)
tell application "Pages"
save document dName in (tempDoc as alias)
end tell -- Pages
Now, the displayed document is the one stored in the temporary items folder.
Builds the name and the pathname of the student's PDF.
if useDateStamp then
set pdfName to fullName & my dateTimeStamp() & ".pdf"
else
set pdfName to fullName & ".pdf"
end if -- useDateStamp
set pdfPath to targetFolder & pdfName
Create the PDF file
tell application "System Events" to make new file at end of folder targetFolder with properties {name:pdfName}
tell application "Pages"
tell document dName
if sectionID < nbSections then
repeat with s from nbSections to (sectionID + 1) by -1
delete section s
end repeat
end if
if sectionID > 1 then
repeat with s from 1 to (sectionID - 1)
delete section s
end repeat
end if
end tell -- temporary document
save document dName as "SLDocumentTypePDF" in (pdfPath as alias)
close document dName without saving
end tell -- Pages
tell application "System Events" to delete disk item tempDoc
tell application "Pages"
open (thePath as alias)
repeat until exists document dName
delay 0.2
end repeat
end tell -- Pages
end repeat -- for next section
end run
--=====
on parleAnglais()
local z
try
tell application "Pages" to set z to localized string "Cancel"
on error
set z to "Cancel"
end try
return (z is not "Annuler")
end parleAnglais
--=====
on dateTimeStamp()
return (do shell script "date +_%Y%m%d-%H%M%S")
end dateTimeStamp
--=====
--[/SCRIPT]
A property allow you to choose to store the PDFs in a folder on the Desktop
or in a subfolder of your Documents folder.
An other property allow you to insert a dateTime stamp in the PDFs names.
Yvan KOENIG (VALLAURIS, France) mardi 11 mai 2010 18:24:44

Answer 1

JavaWorld online magazine published a series of topic regarding Printing in Java. Go to check then out.