AppleScript Snippets

convert-doc-to-pdf.applescript

# Credits for this script to ALYB at https://forum.keyboardmaestro.com/t/applescript-save-microsoft-word-doc-x-document-to-pdf/20614

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) & ".docx")
		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 document
		close active document saving no
	end repeat
end tell

convert-docx-to-pdf.applescript

# Credits for this script to ALYB at https://forum.keyboardmaestro.com/t/applescript-save-microsoft-word-doc-x-document-to-pdf/20614

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