AppleScript: Worddatei erzeugen und mit Text füllen und speichern

tell application "Microsoft Word"
    activate
    --create new document
    set createDoc to make new document
    set name of font object of text object of createDoc to "Lucida Grande"
    set font size of font object of text object of createDoc to "14"

    --insert some text
    set words of document 1 to "This is a little test with AppleScript."

    --simple text formtting
    select word 4 of createDoc
    set bold of font object of selection to true
    set content of text object of selection to "sunny "

    --appent text to end
    insert text return & "another text" at end of text object of createDoc

    --save file
    save as createDoc file name "MyText.doc"
end tell