Batch convert .pages files to .doc /.docx files

-- pages2docx.applescript -- Interactive application that allows one to select combinations of Pages documents, -- and/or folders containing them. Exported word documents are written to original -- Pages document location with only the extension changed to docx. -- Revision 1.3, Tested on OS X El Capitan 10.11.6, macOS High Sierra 10.13.3 -- VikingOSX, 2018-02-18, Apple Support Communities use framework "Cocoa" use AppleScript version "2.4" -- Yosemite or later use scripting additions property app_icon : "/System/Library/CoreServices/CoreTypes.bundle/Contents/Resources/MultipleItemsIcon.icns" property valid_document : {"com.apple.iwork.pages.sffpages", "com.apple.iwork.pages.pages"} property valid_kind : {"Pages Publication", "Pages document"} property default_folder : POSIX path of ((path to desktop folder) as text) property selected_items : {} property HFS : "HFS" property POSIX : "POSIX" property exportFormat : ".docx" on run -- user interactive via double-click on application set fileList to {} set dropped_items to {} -- check we are running in foreground. Prevents hanging Script Editor when run. -- can use control+command+R to override the above. if not (current application's NSThread's isMainThread()) as boolean then display alert "This script must be run from the main thread, or with control+commmand+R from the script editor" buttons {"Cancel"} as critical error number -128 end if try -- allow user to select multiples of Pages documents and/or containing folders set fileList to get_files_folders(HFS) -- guard against user not selecting anything and clicking "Select" if (item 1 of fileList) is equal to (default_folder as POSIX file) then display alert "Warning!" message "Actually choose something. Don't just click Select." as critical giving up after 10 return end if -- we must construct alias POSIX file items beforehand if (fileList as text) contains ":" then repeat with ndx in fileList copy (ndx as alias) to the end of selected_items end repeat else if (fileList as text) contains "/" then repeat with zdx in fileList copy (zdx as POSIX file as alias) to the end of selected_items end repeat end if -- pass selected files/folders to selection handler open selected_items on error errmsg number errnbr my error_handler(errnbr, errmsg) my cleanup() end try return end run on open selected_items -- main processing global fileCnt set fileCnt to 0 as integer repeat with anItem in selected_items try tell application "System Events" to set {akind, apkg} to {kind, package folder} of anItem if akind contains "Folder" and apkg = false then tell application "Finder" set docList to (every item in entire contents of folder anItem where valid_kind contains kind of it) as alias list end tell repeat with afile in docList export_file(afile) end repeat else if valid_kind contains akind then export_file(anItem) end if on error errmsg number errnbr my error_handler(errnbr, errmsg) my cleanup() return end try end repeat -- completion dialog my report_complete(fileCnt, exportFormat) my cleanup() return end open -- handlers on export_file(theFile) global fileCnt tell application "Finder" to set name_ext to name extension of theFile -- preserve original file location while replacing Pages with Word extension set {TID, AppleScript's text item delimiters} to {AppleScript's text item delimiters, ".pages"} set temp to text items of (theFile as text) set AppleScript's text item delimiters to TID set exportDocument to (first item of temp) & exportFormat -- Fix for Sierra/Pages v6 write permission error on export` close access (open for access exportDocument) tell application "Pages" try set mydoc to open theFile with timeout of 1200 seconds export mydoc to file exportDocument as Microsoft Word end timeout close mydoc saving no on error errmsg number errnbr my error_handler(errnbr, errmsg) my cleanup() return end try end tell -- Force Word document extension displayed tell application "Finder" set extension hidden of (file exportDocument as alias) to false end tell set fileCnt to (fileCnt + 1) as integer return end export_file on get_files_folders(fileFormat) -- AppleScript/Objective-C chooser for multiple files and folders set returnCode to 0 as integer set openPanel to current application's NSOpenPanel's openPanel() tell openPanel its setFloatingPanel:true -- pop over all other windows its setFrame:(current application's NSMakeRect(0, 0, 720, 525)) display:yes its setTitle:"File Chooser" its setMessage:"Choose Pages documents and/or Folder(s) containing Pages documents:" its setPrompt:"Select" its setAllowedFileTypes:valid_document its setCanChooseDirectories:true its setCanChooseFiles:true its setTreatsFilePackagesAsDirectories:false its setAllowsMultipleSelection:true its setDirectoryURL:(current application's class "NSURL"'s fileURLWithPath:default_folder) set returnCode to its runModal() end tell if returnCode is (current application's NSFileHandlingPanelCancelButton) then error number -128 if fileFormat is HFS then -- set thePOSIXpaths to (openPanel's |URL|()'s valueForKey:"path") as list set theFilePaths to openPanel's URLs() as list -- HFS format else if fileFormat is POSIX then set theFilePaths to openPanel's filenames() as list -- POSIX format end if return theFilePaths end get_files_folders on report_complete(acount, xfmt) if acount = 0 then quit display dialog "Export is Complete." & return & return & tab & "Export format: " & xfmt & return & tab & "Pages files processed: " & (acount as text) buttons {"Done"} default button {"Done"} with title "Pages Export Facility" with icon POSIX file app_icon as alias return end report_complete on cleanup() tell application "Pages" to if it is running then quit set fileCnt to (0 as integer) set fileList to {} set selected_items to {} return end cleanup on error_handler(nbr, msg) return display alert "[ " & nbr & " ] " & msg as critical giving up after 10 end error_handler