set theText to the clipboard
set theFile to "/Applications/Microsoft Office 2004/Grammar Checker.doc"
tell application "Finder"
if not (exists (file "Grammar Checker.doc" of folder "Microsoft Office 2004" of folder "Applications" of startup disk)) then
tell application "Microsoft Word"
activate
set theNewDoc to make new document
save as theNewDoc file name "Grammar Checker.doc"
end tell
end if
end tell
tell application "Microsoft Word"
activate
set active writing style active document language ID english aus writing style "Technical"
set deleteThis to the text object of active document
delete deleteThis
insert text theText at the end of text object of active document
check grammar text object of active document
check spelling text object of active document
select text object of active document
close up paragraph 1 of active document
copy object selection
save as active document file name "Grammar Checker.doc" with replacing
end tell