on run {input, parameters}
repeat with x in input
set the theFilename to the (the x & „.pdf”) as string
tell application „Microsoft Word”
open x
set theActiveDoc to the active document
save as theActiveDoc file format format PDF file name theFilename
close active document
end tell
end repeat
return input
end run