That is how scripting Word should work. But it doesn't. For example, no result to log when opening or saving docs.
set
wordDoc to choose file
with prompt "Select a Microsoft Word file"
set filePath
to wordDoc
as text
set
savedFiles to {}
set notSavedFiles
to {}
tell
application "Microsoft Word"
set
docWordDoc to open
wordDoc
repeat
with x from 1 to 100
try
tell
document 1
set
newFilePath to (filePath &
x & ".doc")
save as
file name newFilePath file format
document text encoding
x line ending type
line ending cr lf
end
tell
set
the end of savedFiles
to x as
text
on
error errMsg
number errNum
set
the end of notSavedFiles
to x as
text
end
try
end
repeat
end tell
set AppleScript's
text item delimiters to {return}
set
results to {"Saved Files:", savedFiles, "", "", "Files Not Saved: ",
notSavedFiles} as
text
display dialog results
return
results