这样居然一键实现ppt批量转pdf！

大家好！

之前永恒君分享过用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即可。

Set argv = WScript.Arguments
if argv.Count < 1 then
WScript.Quit
end if
For Each argv In WScript.Arguments
filename = argv
if right(filename, 3) = "ppt" or right(filename, 3) = "pps" then
pdfname = left(filename, len(filename)-3) + "pdf"
elseif right(filename, 4) = "pptx" then
pdfname = left(filename, len(filename)-4) + "pdf"
else
msgbox(filename+" is not ppt/pptx!")
WScript.Quit
end if
Set pptApp = CreateObject("PowerPoint.Application")
Set MyPress = pptApp.Presentations.Open(filename)
ppSaveAsPDF = 32
MyPress.SaveAs pdfname, ppSaveAsPDF, false
pptApp.Quit
Next

你也可以直接公众号后台回复「ppt2pdf」获取该文本代码（txt）。

你可能还会想看：