Docs Batch Export

This is an update to the old post. I’ve changed this application so that you can select the output export format.

To use it just drop a bunch of files onto the application icon and select the desired export output.

All converted documents will be placed on your desktop in a folder named temp.

Please make sure that that folder exists first.

on open filist
   set myChoices to {"pdf", "doc", "rtf", "txt"}
   set selectedChoice to choose from list myChoices OK button name "Process" cancel button name "Exit"
   if selectedChoice is false then
      error number -128
   else
      repeat with lvar in filist
         tell application "Finder"
            set thename to name of lvar
         end tell
         set x to the offset of "." in thename
         set nuname to text 1 thru text item x of thename
         tell application "Pages"
            activate
            set filname to ((path to desktop folder as text) & "temp:") & nuname & selectedChoice
            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
      quit application "Pages"
   end if
end open