Batch Convert Pages docs to PDFs

on open filist
 repeat with lvar in filist
 set lvar to lvar as text
 tell application "System Events" to tell disk item lvar
 set thename to get name
 set theExt to get name extension
 end tell
 set nuname to text 1 thru -(1 + (count of theExt)) of thename
 tell application "Pages"
 activate
 set filname to (path to desktop folder as text) & nuname & "pdf"
 set x to make new document with properties {path:filname}
 open lvar
 save document 1 in file filname
 close every window saving no
 end tell
 end repeat
end open

(*
This script batch transcode iWork '08 into iWork '09.
 To use the script, save it as a script or as an "Application Bundle".
As it's not a script which will be used daily, it's not useful to install it in the Scripts Menu.
Run it (or double click its icon)
navigate to the folder containing the docs
click "OK"
or
drag and drop iWork '08 documents or folders 
containing iWork '08 documents on the script's icon.
In both cases they will be saved as iWork '09 documents.
The only interest is that it treats the three kinds of documents in a single call.
Yvan KOENIG (Vallauris, FRANCE)
8 avril 2009
*)
--=====
(* Des globales *)
property msg3 : "" -- globale
property msg90 : "" -- globale
property msg91 : "" -- globale
property msg94 : "" -- globale
property msg97 : "" -- globale
property rapport : "" -- globale
--=====
on run
 tell application "System Events" to set dossier to choose folder (*
dans un bloc System Events pour avoir un titre de dialogue "localisé" 
• in a System Events block to get a localized dialog title. *)
 my main({dossier})
 
end run
--=====
on open sel
 my main(sel)
end open
--=====
on main(sel)
 tell application "System Events" to set (UI elements enabled) to true
 my nettoie()
 my |prépareMessages|()
 
 try
 repeat with elem in sel
 try
 set elemT to elem as text
 tell application "System Events" to tell disk item (elem as text)
 if class is folder then
 set ptree to ""
 else
 set ptree to path of container
 end if
 end tell -- System Events
 my exploreTraite(elem, ptree)
 end try
 end repeat
 
 if rapport = "" then set rapport to msg90 (*
crée un fichier texte sur le Bureau *)
 set nomDuRapport to "report_iWork08toiwork09.txt"
 set p2d to path to desktop
 set p2r to (p2d as text) & nomDuRapport
 tell application "System Events"
 if exists (file p2r) then delete (file p2r)
 make new file at end of p2d with properties {name:nomDuRapport}
 end tell -- System Events
 
 write (rapport as text) to (p2r as alias)
 
 my afficheLeMessage(msg3) (*
Traitement terminé
• Export done.
*)
 on error MsgErr number NroErr
 if NroErr is not -128 then
 beep 2
 tell application (path to frontmost application as string) to ¬
 display alert "" & NroErr & " : " & MsgErr giving up after 20
 end if -- NroErr is…
 end try
 
 my nettoie()
 
end main
--=====
on exploreTraite(elem, ptree) (*
elem est un alias
• elem is an alias *)
 local elemT, laClasse, UTI, flag, gr6
 set elemT to elem as text
 tell application "System Events" to tell disk item elemT
 set laClasse to class as text
 try
 set UTI to type identifier
 on error
 set UTI to ""
 end try
 end tell -- System Events
 if (UTI is not "") and UTI does not start with "com.apple.iwork." then
 set rapport to rapport & elemT & msg94 & return (*
Attention, ce n'est pas un document iWork.
• Caution, it's not an iWork document *)
 else if UTI starts with "com.apple.iwork." then
 my traiteUnFichier(elemT, UTI)
 else if laClasse is in {"file package", "«class cpkg»"} then
 set rapport to rapport & elemT & msg91 & return (*
Attention, un package EST un dossier "spécial".
• Caution, a package IS a "special" folder. *)
 else if laClasse is in {"folder", "«class cfol»"} then
 my ExploreUnDossier(elemT, ptree)
 else
 set rapport to rapport & elemT & msg94 & return (*
Pas un document iWork.
• not an iWork file. *)
 end if
end exploreTraite
--=====
on ExploreUnDossier(dossier, ptree)
 local nomElement, cheminElement
 repeat with nomElement in list folder dossier without invisibles
 try
 set cheminElement to dossier & (nomElement as text)
 tell application "System Events" to set c to name of folder dossier
 my exploreTraite(cheminElement as alias, ptree & c & ":")
 on error errmsg number errNbr
 set rapport to rapport & dossier & msg97 & return & errNbr & return & errmsg
 end try
 end repeat
end ExploreUnDossier
--=====
on afficheLeMessage(m)
 beep 1
 tell application (path to frontmost application as string)
 activate
 display alert m giving up after 10
 end tell
end afficheLeMessage
--=====
on traiteUnFichier(cheminDocIwork, UTI)
 
 if UTI contains "pages" then
 tell application "Pages" to open file cheminDocIwork
 my saveIt(cheminDocIwork, "Pages")
 else if UTI contains "numbers" then
 tell application "Numbers" to open file cheminDocIwork
 my saveIt(cheminDocIwork, "Numbers")
 else
 tell application "Keynote" to open file cheminDocIwork
 my saveIt(cheminDocIwork, "Keynote")
 end if
end traiteUnFichier
--=====
on saveIt(f, a)
 
 tell application a to activate
 tell application "System Events" to tell process a
 keystroke "s" using {command down}
 repeat 10 times
 if exists sheet 1 of window 1 then
 keystroke return
 exit repeat
 end if
 end repeat
 end tell
 set phs to 0
 repeat
 tell application "System Events" to set phs2 to physical size of file f
 if phs2 = phs then exit repeat (* the doc is completely written on the disk *)
 set phs to phs2
 end repeat
 tell application "System Events" to tell process a
 keystroke "w" using {command down}
 end tell
end saveIt
--===== 
on nettoie() (*
pour ne pas stocker dans le fichier script
• So it will not be stored in the script file *)
 set msg3 to ""
 set msg90 to ""
 set msg91 to ""
 set msg94 to ""
 set msg97 to ""
 set rapport to ""
end nettoie
--===== 
on |prépareMessages|()
 
 if (do shell script "defaults read 'Apple Global Domain' AppleLocale") starts with "fr_" then
 
 set msg3 to "Terminé !"
 set msg90 to "Conversion réussie sans incident."
 set msg91 to " est un Package !"
 set msg94 to " n’est pas un fichier iWork !"
 set msg97 to " n’a pu être identifié !"
 else
 set msg3 to "Done !"
 set msg90 to "No problem during the recoding process."
 set msg91 to " is a Package !"
 set msg94 to " is not an AW file !"
 set msg97 to " can’t be identified !"
 end if
end |prépareMessages|
--=====