AppleScript를 사용하여 Word (또는 cvs) 문서 또는 비디오 파일을 Word 문서에 삽입하는 방법?

내가 더 큰 스크립트 (이 일을하고 있지만)를 개발하면서, 나는 AppleScript를 사용하여 Word 문서에 파일을 삽입하는 방법을 알아낼 수 없다. 그림을 삽입 할 수 있지만 파일이 Word 문서, Excel 스프레드 시트, 비디오 파일 등인 경우 명령을 처리 할 수있는 사전은 볼 수 없습니다. 이 예제는 거의 작동합니다.

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

끝 AddAttachmentFileToWordDoc

보시다시피 나는 그래픽 파일을 가지고 만 성공했습니다. 어떤 아이디어가 다른 파일 형식의 구문이어야합니까? 대단히 감사합니다!

가장 가까운 파일은 파일이 아니라 파일에 대한 링크를 추가하는 것입니다.

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