Saving a batch of DOC(X) document as PDF

tell application "Finder"
set input to selection
end tell

tell application id "com.microsoft.Word"
activate
set view type of view of active window to draft view

repeat with aFile in input
open aFile
set theOutputPath to ((aFile as text) & ".pdf")
repeat while not (active document is not missing value)
delay 0.5
end repeat
set activeDoc to active document
save as activeDoc file name theOutputPath file format format PDF
close active document saving no
end repeat
end tell

Hans Lenting wrote:
I've been testing some Applescripts to quickly convert MS Word documents to PDF. I've found this particular script very useful