Come inserire un documento Word o cvs o un file video in un documento Word con AppleScript?

1

Mentre continuo a sviluppare uno script più grande (che funziona ma per questo), non riesco a capire come inserire un file in un documento Word usando Applescript. Posso inserire un'immagine, ma se il file è un documento di Word, un foglio di calcolo di Excel, un file video, ecc., Non riesco a vedere nel dizionario dove sono i comandi che lo gestiscono. Questo esempio funziona quasi:

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

fine AddAttachmentFileToWordDoc

Come puoi vedere, sono riuscito solo con i file grafici. Qualche idea su quale dovrebbe essere la sintassi per gli altri tipi di file? Grazie mille!

    
posta MBUST 15.04.2018 - 16:59
fonte

1 risposta

1

Il più vicino che ho ottenuto è aggiungendo, non il file, ma un link al file, in questo modo:

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
    
risposta data 27.04.2018 - 21:46
fonte

Leggi altre domande sui tag