Apple Script to convert DOCX into PDF

docx2pdf.scpt

on run {input, parameters}
	tell application id "com.microsoft.Word"
		activate
		repeat with aFile in input
			open aFile
			set theOutputPath to ((aFile as text) & ".pdf")
			tell active document
				save as it file name theOutputPath file format format PDF
				close saving no
			end tell
		end repeat
	end tell
end run