Converting Word 5.1 files with Applescript

Question

Level 1

5 points

Converting Word 5.1 files with Applescript

As Microsoft office 2011 currently no longer support Word 5.1 I'm using the previous Office 2004. I can read 5.1 files and saved themmanually as .doc files on Snow Leopard.

However the files are many and I have this script

set inputfolder to (choose folder) as text

set destFolder to (choose folder) as text

set theFiles to list folderinputfolder without invisibles

activateapplication "Word"

repeat with x from 1 to count of theFiles

set thefile to itemx of theFiles

set inputfile to (inputfolder & thefile)

tell application "Word"

opendocumentinputfile

save document 1 in (destFolder & thefile & ".doc")

closedocument 1 savingno

end tell

end repeat

Trying to open the files I need to convert and save them in a different folder.

However I always get an error from AppleScript Version 2.3 (118)

error "Microsoft Word got an error: document \"Disk:Word_Files:a: New Files:General Stuff:conv\" doesn’t understand the open message." number -1708 from document "Disk:Word_Files:a: New Files:General Stuff:conv"

If anyone can help or give another solution to batch convert I will be very glad and happy new Year to all

Mac Pro, Mac OS X (10.6.8)

Posted on Dec 27, 2011 5:37 PM

Reply

Answer 1

Arkouda

Level 4

3,376 points

Dec 28, 2011 9:12 AM in response to etnad

I don't know whether there are other problems hidden in there, but I don't think you need open document ..., just open ...

Reply

Answer 2

rccharles

Level 6

12,975 points

Dec 28, 2011 2:14 PM in response to etnad

Here is some documentation:

http://download.microsoft.com/download/1/3/e/13e8ae25-78f7-41a8-b252-f09c465ce29 c/word2004applescriptref.pdf

Robert

Reply

Answer 3

etnad Author

Level 1

5 points

Dec 28, 2011 7:45 PM in response to etnad

Thanks all however if anyone is interested this is the solution it works till the current office version:

set inputfolder to (choose folder) as text

set destFolder to (choose folder) as text

set theFiles to list folderinputfolder without invisibles

activateapplication "Microsoft Word"

repeat with x from 1 to count of theFiles

set thefile to itemx of theFiles

set inputfile to (inputfolder & thefile)

tell application "Microsoft Word"

openfileinputfile

save asdocument 1 file name (destFolder & thefile & ".doc")

closedocument 1 savingno

end tell

end repeat

The only drawback is:

if the selected destination folder is inside the input folder the script will give error and stop

however this doesn't happen if the "destination folder" is somewhere elese from the selected input folder

Regards and Happy new year

Reply

Answer 4

Jul 22, 2013 5:07 PM in response to etnad

Even when using etnad's revised script posted on Dec. 28, 2011 7:45 PM, I always get the error message, "Microsoft Word got an error: "Planet OS X:InputAttyRet. Agr (Davis)" doesn't understand the open message.

(I'm using AppleScript Utility Ver. 1.0 and Script Editor 2.1.1 in OS 10.4.11.)

Here's the script I am using:

set inputfolder to ("Planet OS X:Input")

set destFolder to ("Planet OS X:output")

set theFiles to list folder inputfolder without invisibles

activate application "Microsoft Word"

repeat with x from 1 to count of theFiles

set thefile to item x of theFiles

set inputfile to (inputfolder & thefile)

tell application "Microsoft Word"

open file inputfile

save as document 1 file name (destFolder & thefile & ".doc")

close document 1 saving no

end tell

end repeat

I'm a real newbie at AppleScript, and all suggestions will be appreciated.

Reply