This script runs on my imac running mac osx 10.8 and msoffice 11 but not on my macbook pro - same versions on both machines
script chokes on command to make new document in word on my macbook pro
tell application "System Events"
set pN to name of (some process whose visible is true and frontmost is true)
tell process pN to keystroke "c" using {command down}
end tell
set the_file to ((path to documents folder as text) & "huddle.doc")
tell application "Finder"
if exists file the_file then delete file the_file
end tell
tell application "Microsoft Word"
activate
delay 2
if not (exists document 1) then
make new document
end if
set left margin of page setup of document 1 to (inches to points inches 0.5)
set top margin of page setup of document 1 to (inches to points inches 0.5)
set right margin of page setup of document 1 to (inches to points inches 0.5)
set bottom margin of page setup of document 1 to (inches to points inches 0.5)
set header distance of page setup of document 1 to (inches to points inches 0)
set footer distance of page setup of document 1 to (inches to points inches 0)
paste special text object of document 1 data type paste text
tell text object of document 1 to set font size of font object to 12.0
auto format text range text object of document 1
save document 1 in the_file
delay 2
quit
end tell
set the_subject to "Huddle"
tell application "Mail"
set new_message to make new outgoing message with properties {subject:the_subject, content:"Thought For The Day", visible:true}
tell new_message
make new to recipient at end with properties {address:"lbennett@mdoyledds.com"}
make new attachment at end of first paragraph of content with properties {file name:the_file as alias}
end tell
send new_message
end tell