微信公众号:yhjbox(永恒君的百宝箱),获取最新文章、资源。

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

实用技巧 永恒君 66℃ 0评论

大家好!

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

 

你可能还会想看:

欢迎交流!

转载请注明:永恒君的百宝箱 » 这样居然一键实现ppt批量转pdf!

喜欢 (1)
发表我的评论
取消评论

*

code

表情