AppleScript o Flujo de trabajo de Automator para cargas Masivas de Convertir Presentaciones de Powerpoint a Keynote

No pude averiguar cómo llegar a Automator para hacerlo, pero yo era capaz de derrotar AppleScript en la sumisión. Sólo tienes que guardar el siguiente como una Aplicación en el Editor AppleScript, a continuación, arrastre los archivos que desea convertir en el icono. Se le pedirá que elija una carpeta donde los archivos convertidos se colocará.

on open droppedFiles
    set theDestinationFolder to (choose folder with prompt "Choose destination folder") as Unicode text
    repeat with theFile in droppedFiles
        tell application "Keynote"
            open theFile
            set theSlideshow to slideshow 1
            set theDestinationPath to theDestinationFolder & (name of theSlideshow)
            save theSlideshow in theDestinationPath
            close theSlideshow
        end tell
    end repeat
end open

(Realmente no sé lo que estoy haciendo con AppleScript. Si hay mejoras que se pueden hacer aquí, me gustaría saber acerca de ellos.)