Como inserir um documento do Word (ou cvs) ou um arquivo de vídeo em um documento do Word com AppleScript?

1

À medida que continuo desenvolvendo um script maior (que está funcionando, mas para isso), não consigo descobrir como inserir um arquivo em um documento do Word usando o Applescript. Posso inserir uma imagem, mas se o arquivo for um documento do Word, uma planilha do Excel, um arquivo de vídeo, etc., não consigo ver no dicionário onde estão os comandos que tratariam disso. Este exemplo quase 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

end AddAttachmentFileToWordDoc

Como você pode ver, só consegui com os arquivos gráficos. Alguma idéia de qual deve ser a sintaxe para os outros tipos de arquivo? Graças um milhão!

applescript ms-office MBUST
fonte

Respostas:

1

O mais próximo que cheguei foi adicionando, não o arquivo, mas um link para o arquivo, da seguinte forma: 

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
MBUST
fonte