大家好！
之前永恒君分享过用VBA的方法一键批量将ppt转成pdf ， 传送门点这里 。
今天分享一个在网上看到的的更为另类而且简单好用的方法，这个方法不用安装任何软件，支持ppt、pptx、pps文件格式 。
原文地址：
https://www.dyniao.com/convert-ppt-pptx-pps-to-pdf-with-vba/
作者：dyniao
使用方法很简单：
1、将代码粘贴到记事本中，然后保存并更改后缀名为.vbs 。（代码见文后）
2、将ppt文件拖放到 VBS 文件上就OK了 。
效果如下：
这里说明一下，永恒君这边使用的是64位win7、win10、office2016的系统环境，其他的32的系统可能会有状况，不保证都可以使用，小伙伴们可以自行测试一下 。
以下为全部代码 ， 粘贴到记事本当中 ， 保存扩展名为vbs即可 。
【这样居然一键实现ppt批量转pdf】
Set argv = WScript.Argumentsif argv.Count < 1 thenWScript.Quitend ifFor Each argv In WScript.Argumentsfilename = argvif right(filename, 3) = "ppt" or right(filename, 3) = "pps" thenpdfname = left(filename, len(filename)-3)"pdf"elseif right(filename, 4) = "pptx" thenpdfname = left(filename, len(filename)-4)"pdf"elsemsgbox(filename " is not ppt/pptx!")WScript.Quitend ifSet pptApp = CreateObject("PowerPoint.Application")Set MyPress = pptApp.Presentations.Open(filename)ppSaveAsPDF = 32MyPress.SaveAs pdfname, ppSaveAsPDF, falsepptApp.QuitNext