摘要：利用 automator 配合 apple script将 PPT 批量转为 pdf

因为上课的需要，需要将 PPT 转为 PDF 在 ipad 上记笔记, 每门课都有几十个课件，一个一个点开另存为十分枯燥，于是就想折腾一下批量转换

本来觉得这个事情挺简单，但是上网上一搜发现资料少之又少，多数人推荐用 Adobe 的一款软件进行批量格式转换。但由于收费且500+M 的大小让我放弃了这个想法，后来看到有人用 automator 完成了 word2pdf 的转换，让我有了想折腾一下的想法。

MS Office 在2011版以前提供官方的 automator 操作脚本，费劲一番周折搞到了2011版的脚本后发现在2016版的 office 上不能运行，且不能 debug，于是只能放弃这条路。

后来在知乎上搜到了相似问题如何使用 AppleScript将 ppt 批量导出成 pdf
答案中链接到了AskDifferent 上的一个答案 How do I get Automator actions for Microsoft Powerpoint and Word 实测可用，特地记下来供以后查询。

1. 新建 automator 工作流程
   

2. 将待转换文件拖入到操作框中
   

3. 添加==运行AppleScript==到操作框
   

4. 将下列代码复制到 AppleScript 中

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 end of theOutput to pdfPath as alias
        end repeat
        set start up dialog to theDial
    end tell
 return theOutput
end run

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

5 点击运行，齐活~

阅读更多

更多精彩内容