Converting mulitple Pages files to .doc

Question

Hi I am using Pages '09 and have a lot of Pages documents that i want to convert to .doc so that i can open them in Microsoft Word on a PC. I know that you can go into each one and export them so they are .doc but you have to do that individually and that would take too much time. Is there any way that you can just convert them all at once.

Answer 1

Why not use a script already posted :
--[SCRIPT batch_exportPages2DOC]
Enregistrer ce script en tant que script ou progiciel.
Exécuter ce script ou
déposer l'icône d'un dossier sur son icône.
Il ouvre tout document Pages du dossier
et l' enregistre en fichier DOC
dans le dossier "wasPages_nowDOC".
Celui-ci peut être sur le bureau
ou dans le dossier "~/Documents".
Si le GUIscripting n'est pas activé
le script demande votre mot de passe pour l'activer.
Le script récupère le dossier d'exportation par défaut
dans le fichier de préférences de Pages.
Éviter de cliquer durant l'exécution du script
sauf évidemment pour sélectionner le dossier source.
Save the script as script or application bundle.
Run it or drag and drop a folder icon on its icon.
It opens every Pages's documents stored
in the folder and save it as DOC file in a folder named "wasPages_nowDOC".
This one may be on the desktop or in the "~/Documents" folder.
according to the property storeOnDesktop.
If GUIscripting is disabled
the script ask for your password to enable it.
The script extract the default export path
from the Pages's preferences file.
Don't click when the script is running.
Except, of course, to select the source folder.
Yvan KOENIG (VALLAURIS, France)
2008/04/20
2009/06/17 adapté pour format .doc
2009/12/13 updated for MacOs 10.6…
property theApp : "Pages"
property theExt : "pages"
property nomDuRapport : "report_Pages2DOC.txt"
property nomdudossier : "wasPages_nowDOC"
property storeOnDesktop : true (*
true = dest folder will be on Desktop
false = dest folder will be in "~/Documents"
property msg1 : "" -- globale
property msg90 : "" -- globale
property msg91 : "" -- globale
property msg92 : "" -- globale
property msg94 : "" -- globale
property msg95 : "" -- globale
property msg96 : "" -- globale
property msg99 : "" -- globale
property rapport : "" -- globale
property dossierDeStockage : "" -- globale
property dossierParDefaut : "" -- globale
property localExport : "" -- globale
property newExt : "" -- globale
property newType : "" -- globale
property isOs4 : missing value -- globale
property isOs5 : missing value -- globale
property theMenu : missing value -- globale
property menuExport : missing value -- globale
property types : {{"doc", "SLDocumentTypeMSWord", 2}, {"pdf", "SLDocumentTypePDF", 1}, {"txt", "SLDocumentTypePlainText", 4}, {"rtf", "SLDocumentTypeRichText", 3}, {"rtfd", "SLDocumentTypeRichTextBundle"}, 3}
--=====
(* our settings *)
property typeNum : 1
(* 1 = WORD, 2 = PDF, 3 = Txt, 4 = rtf, 5 = rtfd *)
property theButton : missing value
1 button PDF
2 button Word
3 button RTF
4 button Standard
--=====
on run (* lignes exécutées si on double clique sur l'icône du script application
• lines executed if one double click the application script's icon *)
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 commun({dossier})
-- my commun({"Macintosh HD:Users:yvankoenig:Desktop:forsee:" as alias})
end run
--=====
on open (sel) (* sel contient une liste d'alias des éléments qu'on a déposés sur l'icône du script (la sélection)
• sel contains a list of aliases of the items dropped on the script's icon (the selection) *)
my commun(sel)
end open
--=====
on commun(elems)
my nettoie()
my prepareMessages()
tell application "System Events"
if not (UI elements enabled) then set (UI elements enabled) to true (*
Active le GUI scripting
• Enable GUI scripting *)
set titres to title of processes
end tell -- to System Events
if theApp is not in titres then my activateTheApp() (*
Active et ferme la fenêtre du document créé à l'ouverture
• Activate and close the doc's window created at opening *)
set {newExt, newType, theButton} to item typeNum of types (*
item 1 = {"doc", "SLDocumentTypeMSWord",2}
item 2 = {"pdf", "SLDocumentTypePDF",1}
item 3 = {"txt", "SLDocumentTypePlainText",4}
item 4 = {"rtf", "SLDocumentTypeRichText",3}
item 5 = {"rtfd", "SLDocumentTypeRichTextBundle",3}
set sysAtt to (system attribute "sys2")
if 4 > sysAtt then
if my parleAnglais() then
error "This script requires MacOs X 10.4 or higher !"
else
error "Ce script requiert MacOs X 1.4 ou ultérieur !"
end if
else if 5 > sysAtt then
set isOs4 to true
set isOs5 to false
if my getVersion() < "4" then
set theMenu to 3
set menuExport to 13
else
set theMenu to 10
set menuExport to 8 (* was a wrong 9 *)
end if
end if
my fermeFenetres() (*
• Close existing windows *)
my afficheLeMessage(msg1) (*
Éviter de cliquer…
• Don't click… *)
tell application theApp to set localExport to localized string "Export"
set dossierParDefaut to my getDefaultExport() as text
set rapport to ""
set dossierDeStockage to my creeDossierDeStockage(nomdudossier) (* Unicode text *)
try
repeat with elem in elems
try
my exploreTraite(elem as alias, "")
end try
end repeat
if rapport = "" then set rapport to msg90
-- crée un fichier texte sur le Bureau
set p2d to path to desktop
set p2r to (p2d as Unicode 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
set rapport to rapport as text
write rapport to (p2r as alias)
on error MsgErr number NroErr
if NroErr is not -128 then
beep 2
tell application (path to frontmost application as string) to ¬
display dialog "" & NroErr & " : " & MsgErr with icon 0 buttons {msg99} giving up after 20
end if -- NroErr is…
return
end try
my nettoie()
if my parleAnglais() then
my afficheLeMessage("Export done.")
else
my afficheLeMessage("Traitement terminé.")
end if
end commun
--=====
on nettoie() (*
pour ne pas stocker dans le fichier script
• So it will not be stored in the script file *)
set dossierDeStockage to ""
set dossierParDefaut to ""
set rapport to ""
set localExport to ""
set newExt to ""
set newType to ""
set isOs4 to missing value
set isOs5 to missing value
set theMenu to missing value
set menuExport to missing value
set theButton to missing value
set msg1 to ""
set msg90 to ""
set msg91 to ""
set msg92 to ""
set msg94 to ""
set msg95 to ""
set msg96 to ""
set msg99 to " "
end nettoie
--=====
on afficheLeMessage(m)
beep 1
tell application (path to frontmost application as string)
activate
if my parleAnglais() then
display dialog m buttons {" OK "} default button 1 giving up after 10
else
display dialog m buttons {" Vu "} default button 1 giving up after 10
end if
end tell
end afficheLeMessage
--=====
on creeDossierDeStockage(Nom) (*
S'il n'existe pas, construit un dossier destination sur le bureau ou dans "~/Documents"
• If does not exist, create a destination folder on the desktop or in "~/Documents"
local dd, dds
if storeOnDesktop is true then
set dd to path to desktop as Unicode text
else
set dd to path to documents folder as Unicode text
end if
if Nom ends with ":" then
set dds to dd & Nom
else
set dds to dd & Nom & ":"
end if
dossierDeStockage n'existe pas, on le crée
• dossierDeStockage is not available, build it *)
tell application "System Events" to if not (exists item dds) then make new folder at end of folder dd with properties {name:Nom}
return dds as Unicode text
end creeDossierDeStockage
--=====
on exploreTraite(elem, ptree) (*
elem est un alias
• elem is an alias *)
local elem_, cl_, type_Id
set elem_ to elem as Unicode text
tell application "System Events" to tell disk item elem_
set cl_ to class
if cl_ is folder then
set type_Id to ""
else
set type_Id to type identifier
end if
end tell -- "System Events"
set cl_ to cl_ as Unicode text
if type_Id is in {"com.apple.iwork.pages.pages", "com.apple.iwork.pages.sffpages"} then (*
C'est un fichier Pages.
• It's a Pages document *)
my TraiteUnDocument(elem_)
else if cl_ is in {"file package", "«class cpkg»"} then
set rapport to rapport & msg91 & elem_ & return (*
"Package", Attention, un package EST un dossier "spécial".
• Caution, a package IS a "special" folder. *)
else if cl_ is in {"folder", "«class cfol»"} then
my ExploreUnDossier(elem_, ptree)
else
set rapport to rapport & msg92 & elem_ & return (*
"Pas un document Pages".
• "Not a Pages's document" *)
end if -- typeId_ is …
end exploreTraite
--=====
on ExploreUnDossier(dossier, ptree)
local nomElement, cheminElement, c
repeat with nomElement in list folder dossier without invisibles
set cheminElement to dossier & nomElement
tell application "System Events" to set c to name of (dossier as alias)
my exploreTraite(cheminElement as alias, ptree & c & ":")
end repeat
end ExploreUnDossier
--=====
on TraiteUnDocument(leCheminOriginal_UniText)
my export2Doc(leCheminOriginal_UniText as alias, leCheminOriginal_UniText)
end TraiteUnDocument
--=====
on export2Doc(p, leCheminOriginal_UniText) (*
• here p is the path as alias *)
local flag, nomdep, nouveauChemin, w, bof, x, p_xport
try
tell application theApp
open p
set flag to false
repeat 300 times (*
Attends que le fichier soit réellement ouvert.
• Wait until the file is really open *)
if my getNbWindows() > 0 then
set flag to true
exit repeat
end if
end repeat
end tell -- to theApp
if flag is false then error number 8888 (*
Le fichier n'a pu être ouvert.
• The file can't be open. *)
on error MsgErr number NroErr
if NroErr = 8888 then
set rapport to rapport & msg94 & leCheminOriginal_UniText & return
else
set rapport to rapport & msg95 & leCheminOriginal_UniText & return
end if
return (* can't do the remaining tasks *)
end try
tell application "System Events" to tell file leCheminOriginal_UniText
set nomdep to name
end tell -- System Events
if nomdep ends with theExt then set nomdep to text 1 thru -(2 + (length of theExt)) of nomdep
set nouveauChemin to dossierParDefaut & nomdep & "." & newExt
--log nouveauChemin
tell application "System Events" to if exists (file nouveauChemin) then set name of file nouveauChemin to nomdep & my horoDateur(modification date of file nouveauChemin) & "." & newExt (* name stamped *)
try
set {w, bof} to my getFrontWindow()
tell application "System Events" to tell application process theApp
click menu item menuExport of menu 1 of menu bar item theMenu of menu bar 1 (* Exporter… *)
repeat until exists sheet 1 of window w
delay 0.1
end repeat
tell sheet 1 of window w (* sheet containing the buttons PDF, Word, RTF, Standard *)
-- get properties of UI elements of radio group 1
if isOs4 then
click button theButton of radio group 1
else if isOs5 then
click checkbox theButton of radio group 1
else
click radio button theButton of radio group 1 (* I hope that they will no longer change it *)
end if -- isOs4 is true
if typeNum is 2 then
delay 0.2
tell pop up button 1
click
click menu item quality of menu 1
end tell
delay 0.2
end if
click button 1 (* Suivant… *)
repeat until exists button localExport
delay 0.1
end repeat
click button localExport (* Exporter… *)
end tell -- to sheet…
repeat 20 times
if exists sheet 1 of window w then
click button 2 of sheet 1 of window w (*
"Ne pas consulter " dans éventuel rapport d'anomalies
• "Don't review" in sheet reporting possible export anomalies *)
exit repeat
end if
delay 0.1
end repeat
end tell -- to process … System Events
if dossierDeStockage is not dossierParDefaut then (* we must move the file from folder dossierParDefaut to folder dossierDeStockage *)
set p_xport to dossierDeStockage & nomdep & "." & newExt
tell application "System Events" to if exists (file p_xport) then set name of file p_xport to nomdep & my horoDateur(modification date of file p_xport) & "." & newExt
tell application "Finder" to duplicate file nouveauChemin to folder dossierDeStockage (*
• before 10.5, System Events is unable to move *)
my wait4File(p_xport)
tell application "System Events" to if exists file nouveauChemin then delete file nouveauChemin
end if -- dossierDeStockage is not…
my ferme1fenetre()
on error
set rapport to rapport & msg96 & p & return
end try
end export2Doc
(* =====
• Build a stamp from the modification date_time
on horoDateur(dt)
local annee, mois, jour, lHeure, lesSecondes, lesMinutes
set annee to year of dt
set mois to month of dt as number (* existe depuis 10.4 *)
set jour to day of dt
set lHeure to time of dt
set lesSecondes to (lHeure mod 60)
set lHeure to round (lHeure div 60)
set lesMinutes to (lHeure mod 60)
set lHeure to round (lHeure div 60)
return "_" & annee & text -2 thru -1 of ("00" & mois) & text -2 thru -1 of ("00" & jour) & "-" & text -2 thru -1 of ("00" & lHeure) & text -2 thru -1 of ("00" & lesMinutes) & text -2 thru -1 of ("00" & lesSecondes) (*
• Here, the stamp is "_YYYYMMDD-hhmmss" *)
end horoDateur
(* =====
• Take care, the front window may be an Inspector or a dialog one.
on getFrontWindow()
local namesOfWindows, w, flag
tell application theApp to activate
set flag to false
tell application "System Events" to tell application process theApp
set namesOfWindows to name of every window
repeat with w in namesOfWindows
if subrole of (get properties of window w) is "AXStandardWindow" then
set flag to true
exit repeat
end if
end repeat
end tell
return {w, flag} (*
• w is the name of the front document's window *)
end getFrontWindow
(* =====
• Wait that the file is completely written on disk
on wait4File(p) (*
• p must be Unicode text *)
local oldSize, nnn, newSize
set oldSize to 0
tell application "System Events" to set nnn to name of file p
repeat
try
tell application "System Events" to set newSize to physical size of file p
if oldSize < newSize then
set oldSize to newSize
else
exit repeat
end if
end try
end repeat
end wait4File
--=====
on activateTheApp()
local bof, status
tell application theApp to activate
if my getStartingStatus() is false then tell application "System Events" to tell application process theApp to keystroke return
repeat
set {bof, status} to my getFrontWindow()
if status is true then exit repeat
end repeat
end activateTheApp
(* =====
• Close existing open windows *)
on fermeFenetres()
repeat while my getNbWindows() > 0
my ferme1fenetre()
end repeat (*
• Now there is no open window *)
end fermeFenetres
--=====
on ferme1fenetre()
tell application theApp to activate
tell application "System Events" to tell application process theApp to keystroke "w" using {command down}
end ferme1fenetre
--=====
on getPlistValue(valName, default)
local thePlist, u
set thePlist to (path to preferences folder as Unicode text) & "com.apple.iWork." & theApp & ".plist"
tell application "System Events"
if exists file thePlist then
tell contents of property list file thePlist
try
set u to (value of property list item valName) (* Unicode Text *)
on error (*
On est là si Pages n'a rien enregistré avec des préférences neuves
• Here if Pages never saved with the new preferences file. *)
set u to default
end try
end tell -- to contents of…
else (*
On est là s'il n'y a pas de fichier de préférences
• Here if there is no preferences file. *)
set u to default
end if
end tell -- to system events
return u
end getPlistValue
--=====
on getStartingStatus()
return my getPlistValue("LSDefaultsUseDefaultStartingPoint", false)
end getStartingStatus
--=====
on getDefaultExport()
local u
(* son of a *****, I forgot that they don't use the same name !! *)
if theApp contains "Pages" then
set u to my getPlistValue("SLDocumentDefaultExportDirectory", "~/Documents")
else if theApp contains "Numbers" then
set u to my getPlistValue("LSDocumentDefaultExportDirectory", "~/Documents")
else
error "I didn't coded a Keynote version !"
end if
set u to (POSIX file (do shell script "echo " & u)) as text
if u ends with ":" then
return u
else
return (u & ":")
end if
end getDefaultExport
--=====
on getNbWindows()
tell application "System Events" to tell application process theApp to return count of windows
end getNbWindows
--=====
on getLocale(a, x)
tell application a to return localized string x
end getLocale
--=====
on getVersion()
try
tell application theApp to return version
on error
return "1"
end try
end getVersion
--=====
on parleAnglais()
local z
try
tell application theApp to set z to localized string "Cancel"
on error
set z to "Cancel"
end try
return (z is not "Annuler")
end parleAnglais
--=====
on prepareMessages()
if my parleAnglais() then
set msg1 to "Don’t click when the script is running." & return & "Except, of course, if it ask for."
set msg90 to "No problem during the export process."
set msg91 to "Package"
set msg92 to "Not a " & theApp & "’s document"
set msg94 to theApp & " can’t read it"
set msg95 to "Not open"
set msg96 to "Not copied."
set msg99 to "Oops"
else
set msg1 to "Éviter de cliquer durant l’exécution du script" & return & "sauf s’il le demande."
set msg90 to "Exportation réussie sans incident."
set msg91 to "Package"
set msg92 to "Pas un document " & theApp
set msg94 to theApp & " n’a pas pu le lire"
set msg95 to "Pas ouvert"
set msg96 to "Pas copié."
set msg99 to " Vu "
end if
set msg91 to "### " & msg91 & " ### "
set msg92 to "### " & msg92 & " ### "
set msg94 to "### " & msg94 & " ### "
set msg95 to "### " & msg95 & " ### "
set msg96 to "### " & msg96 & " ### "
end prepareMessages
--=====
--[/SCRIPT]
I don't know why, under 10.5.x
the instruction which match every requirements:
set p2d to path to desktop
tell application "Pages"
save document 1 as "SLDocumentTypeMSWord" in alias ("""&p2d&"wasPagesnowdoc:Grenelle 2.doc")
returns :
"Erreur dans Pages : The document cannot be exported to the "Document Microsoft Word" format."
So, I replaced it by a code triggering the Export menu item thru GUI scripting.
Yvan KOENIG (VALLAURIS, France) 1 septembre 2010 12:00:00