用Mac OS X零插件自动将Word转Pdf格式

任务：帮客户审定了合同终稿，为了防止篡改，往往需要把Word文档转为Pdf。奈何有批量的doc或docx 格式的合同文档，需要转为Pdf 格式并保存，怎么办？

工具： Mac OSX 系统，不需要另外插件或软件。

目标：用最“傻瓜”的方法，1分钟内搞定。（毕竟还是想造福法学院的孩子们）

前言：本想编一个虐狗的小故事，然终究还是于心未忍......毕竟同是天涯沦落狗呢。

第一步：打开Mac系统自带的Automator软件。

（快捷方式： Alt+空格，输入 Automator 就可以找到了）

image

第二步：选择新建项目->工作流程->选择

image

第三步：选择文件和文件夹>获得指定的Finder项目（向右拖动）>添加需要处理的文件

image

（快捷方式：直接将文件拖至右边“工作流程窗口”）

第四步：选择实用工具>运行AppleScript>

image

【核心步骤】将下列代码粘贴替换“运行AppleScript窗口”中的全部代码。

--AppleScript.Word_to_Pdf[By.龙律师一本正经的代码]
on run {input, parameters}  
    set theOutput to {} 
    tell application "Microsoft Word"       
        repeat with thefile in input            
            open thefile            
            set pdfPath to my makeNewPath(thefile)          
            set theActiveDoc to the active document         
            save as theActiveDoc file format format PDF file name pdfPath
            close theActiveDoc saving no        
        end repeat  
    end tell    
    return theOutput
end run

on makeNewPath(f)   
    set d to f as string    
    if d ends with ".docx" then     
        return (text 1 thru -5 of d) & "pdf"    
    else if d ends with ".doc" then     
        return (text 1 thru -4 of d) & "pdf"    
    else        
        return d & ".pdf"   
    end if
end makeNewPath
--Time.20180302
--代码链接https://zhuanlan.zhihu.com/p/34204905

最后一步：点击右上角“运行”按钮，程序开始自动处理。

image

PS:有些情况下需要给保存文件夹授予权限，直接按照提示操作即可。

运行结束，由于合同文件页数较多，共计用时49.89秒。

完成全部文件转PDF并自动保存到相同路径下。

我,还是那个一本正经的龙律师，偶尔也作一点儿不务正业的事儿。

以上，如对您有帮助，记得添加关注或者点赞噢。

<原创代码，转载请注明出处>

最后编辑于：2018.03.11 23:20:22