macOS | Convert Word or PowerPoint Document to PDF in Automator

Convert Word or PowerPoint Document to PDF

Function: Right click to convert word or ppt documents to PDF.
Written on 201208
Work on macOS Big Sur 11.0.1
Software version: Microsoft Word 16.43
Software version: Microsoft PowerPoint 16.43

Convert PowerPoint to PDF

on run {input, parameters}
	set theOutput to {}
	tell application "Microsoft PowerPoint" -- work on version 15.15 or newer
		launch
		set theDial to start up dialog
		set start up dialog to false
		repeat with i in input
			open i
			set pdfPath to my makeNewPath(i)
			save active presentation in pdfPath as save as PDF -- save in same folder
			close active presentation saving no
			set