I have tried with no success in googling and download.com etc for a
utility that will:
identify mac word files and add the extension .doc to them so that a
PC Word can identify them as Word files
Here's an applescript that will do it if you drop a gaggle of them on the
script saved as an Application in Script Editor. You can even drop a folder
containing word files and it will do the same. It assumes that these are
genuine Word 6, 98, 2001, X files made on the Mac (and will work with 2004
Word files too when they come out.)
Paste this script into Script Editor (here: /Applications/AppleScript/Script
Editor). Compile, then File/Save As Application (NOT Compiled Script - flip
the popup to Application) to the desktop or elsewhere. Call it "Add doc" or
whatever, but don't include the "." or the OS will think you want to turn it
into a Word doc.
Drag one or more (any number of pre-selected) Word files, or a folder of
Word files, onto the droplet you have made.
-----------
on open (theItems)
repeat with theItem in theItems
tell application "Finder"
if kind of theItem is "Folder" then
set theFiles to every file of theItem
repeat with theFile in theFiles
my AddDocExtension(theFile)
end repeat
else
my AddDocExtension(theItem)
end if
end tell
end repeat
beep
display dialog "Done!" giving up after 3 -- seconds
end open
to AddDocExtension(theFile)
set filePath to theFile as Unicode text
tell application "Finder"
try
set theFile to file filePath
tell theFile
if its creator type is "MSWD" and {its file type} is in
{"W8BN", "W6BN"} then
if name extension ‚ "doc" then
set theName to name
set name to (theName & ".doc")
end if
end if
end tell
end try
end tell
end AddDocExtension
----------------------------------
--
Paul Berkowitz
MVP Entourage
Entourage FAQ Page: <
http://www.entourage.mvps.org/toc.html>
AppleScripts for Entourage: <
http://macscripter.net/scriptbuilders/>
Please "Reply To Newsgroup" to reply to this message. Emails will be
ignored.
PLEASE always state which version of Entourage you are using - 2001 or X.
It's often impossible to answer your questions otherwise.
