Subject: | |
From: | |
Reply To: | |
Date: | Sat, 5 Jun 2010 22:37:58 -0400 |
Content-Type: | text/plain |
Parts/Attachments: |
|
|
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
|
|
|