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