This oughta be real simple:

tell application "Microsoft Word"
	set storyName to name of document 1
end tell
set tempPath to (path to desktop as string) & (storyName as string)
tell application "Microsoft Word"
	save document storyName in tempPath
end tell


--> "Microsoft Word got an error. Document "foo" doesn't understand 
the save message."

Say what? Doesn't understand "save?".  (This is Word 2004. The 
dictionary agrees with me.)

What's even weirder is that sometimes it works. Usually after a restart.
-- 

Bill Steele
[log in to unmask]