Convertir por lotes archivos de Apple Pages a archivos doc de Microsoft Word

iWork Converter puede convertir por lotes archivos de Pages a doc sin script. También puede convertir archivos de Numbers a xls.

http://tyorex.com/iWorkConverter

También puede utilizar Automator y algunas acciones de terceros como:

https://www.ghostotter.com/pages-automator-actions

...para hacer una gota o servicio para hacer el trabajo.

Por ejemplo:

Abra Automator desde su carpeta de Aplicaciones Cree una nueva aplicación (Archivo>Nuevo>Aplicación)

A continuación, suponiendo que tenga las acciones mencionadas anteriormente, arrastre las siguientes acciones desde la biblioteca de páginas (en la columna de la izquierda):

• Abrir documento(s)
• Exportar como PDF (recordando seleccionar "Todos los documentos" en el menú desplegable desplegable
• Cerrar documento(s) (de nuevo, recordando seleccionar "Todos los documentos" en el menú desplegable

Debería ser algo así:

Guarda tu aplicación de Automator en algún lugar al que puedas acceder fácilmente (por ejemplo, tu escritorio) y simplemente suelta los documentos de Pages en ella cuando lo necesites.

Pegue esto en un AppleScript de ejecución de Automator.

on run {input, parameters}

    --Select from where you will pick up the pages files
    set theSourceFolder to choose folder with prompt "Select folder with original pages files :"
    --Do it
    tell application "Finder"
        set theNames to name of files of theSourceFolder ¬
            whose name extension is "pages"
    end tell

    --Select where the files will go
    set theDestinationFolder to choose folder with prompt "Select folder where files will go :"

    -- How many files to export
    set item_count to (get count of items in theNames)

    --Get files and export them
    repeat with i from 1 to item_count

        set current_file to item i of theNames -- get a file
        set lean_file to text 1 thru -7 of current_file & ".docx" -- change the originalfile (.pages) to a .MS Word name
        set out_file to (theDestinationFolder as Unicode text) & (lean_file) -- get the fully qualified output name
        set in_file to (theSourceFolder as Unicode text) & (current_file) -- get the fully qualified input file name

        tell application "Pages"
            set mydoc to open file in_file -- open input file in Pages
            export mydoc to file out_file as Microsoft Word --do the exporting
            close mydoc saving no -- close the original file without saving
        end tell

    end repeat

    display dialog "done" -- Job done

    return input

end run

También puedes utilizar mi aplicación Docxtor . Permite convertir carpetas enteras de documentos e incluso reproducir estructuras de carpetas completas, algo que es difícil de conseguir con AppleScript.

(Descargo de responsabilidad: soy el desarrollador de esta aplicación)