¿Cómo insertar un documento de Word (o cvs) o un archivo de video en un documento de Word con AppleScript?

1

A medida que continúo desarrollando un script más grande (que está funcionando pero para esto), no puedo averiguar cómo insertar un archivo en un documento de Word usando Applescript. Puedo insertar una imagen, pero si el archivo es un documento de Word, una hoja de cálculo de Excel, un archivo de video, etc., no puedo ver en el diccionario dónde están los comandos que podrían manejar eso. Este ejemplo casi funciona:

on AddAttachmentFileToWordDoc(FilePath, Extension)
set GraphicFiles to {"PDF", "jpg", "giff", "TIFF", "gif", "png", "PPM", "PGM", "PNM"}
set VideoFiles to {"mov", "wmv", "amv", "mp4", "m4p", "mpg", "mpeg", "m4v"}
tell application "Microsoft Word"
    activate
    tell active document
        set ContTemp to content of text object
        set StartRange to (count of ContTemp) - 1
        set endrange to StartRange
        set theRange to create range start StartRange end endrange
        tell theRange
            if GraphicFiles contains Extension then
                --this works well
                make new inline picture at end with properties {file name:FilePath as text, save with document:true}
            else if VideoFiles contains Extension then
                --this obviously doesn't work, but I would guess that something close to it should.
                make new video at end with properties {file name:FilePath as text, save with document:true}
            else -- everything else, Word docs, excel, etc.
                --make new what?? There is no option for new inline file . . .
            end if
        end tell
    end tell
end tell

fin de AddAttachmentFileToWordDoc

Como puede ver, solo he tenido éxito con los archivos gráficos. ¿Alguna idea de cuál debería ser la sintaxis de los otros tipos de archivos? ¡Un millón de gracias!

    
pregunta MBUST 15.04.2018 - 16:59

1 respuesta

0

Lo más cercano que he encontrado es al agregar, no el archivo, sino un enlace al archivo, como:

tell application "Microsoft Word"
    tell active document
        set ContTemp to content of text object
        set StartRange to (count of ContTemp) - 1
        set endrange to StartRange
        set theRange to create range start StartRange end endrange
        make new hyperlink object at end with properties {text to display:CommentText, hyperlink address:FilePath, text object:theRange}
    end tell
end tell
    
respondido por el MBUST 27.04.2018 - 21:46

Lea otras preguntas en las etiquetas