gistfile1.txt

on run {input, parameters}
	tell application "Microsoft Word"
		activate
		repeat with i in input
			open i
			--click button "Enable Macros" of window 1
			set pdfFilename to my swapExt(i)
			set doc to the active document
			save as doc file format format PDF file name pdfFilename
			close doc
		end repeat
	end tell
end run

on swapExt(f)
	set t to f as string
	if t ends with ".docx" then
		return (text 1 thru -5 of t) & "pdf"
	else
		return t & ".pdf"
	end if
end swapExt