On Jun 5, 2010, at 10:00 PM, Nobumi Iyanaga wrote:
> MS Word: how to save a doc file as rtf file in the SAME folder?

Try this:

set AppleScript's text item delimiters to {""}
tell application "Microsoft Word"
	set thePath to full name of active document
	tell me
		set oldTIDs to text item delimiters of AppleScript
		set AppleScript's text item delimiters to {"."}
		set newDocPath to text items 1 thru -2 of thePath & "rtf" as string
		set AppleScript's text item delimiters to oldTIDs
	end tell
	save document 1 in newDocPath as format rtf	
end tell


----------------------------------------

Happy Automation, 
Larry McMunn, President

McMunn Associates, Inc.  •  Collingswood, NJ   •  Seminole, FL
Mobile:(856) 261-7018   •   Main Office:(856) 671-6067  •  Seminole, FL:(727) 392-6509
FAX: (727) 489-1062  •   [log in to unmask]

SKYPE: (856) 393-4756


"If you look backward in this business, you'll be crushed. You have to look forward"
--Steve Jobs