利用 VBS 批量将 PPT 转为 PDF

又来了需求,当然就是解决需求了!这次是“100多个 PPT 转换成 PDF ”!

首先看看在线工具有很多,但是只能一次传一个或者限制文件大小,有得下载还很慢,待处理的文件太多不现实。
其次是安装转化程序,其实一般我都不喜欢用这些,装了一堆工具其实就用这么一两下,然后还得卸载,还得担着有马的风险。

我最爱用的就是 BAT(批处理)和 VBS(其实这个也很危险,一般要慎用)

搜了搜有个网址介绍了这个方法 “批量ppt/pptx转pdf”,其原理就是用 VBS 调用 PowerPoint 打开文件并另存为pdf
挺好用,不过他这个还得修改注册表,太麻烦,我简单改了一下。

直接将一堆文件拖放到 VBS 文件上,接着就批处理了!可以处理的文件后缀多加了一个 pps。

唯一的缺陷就是……没有进度,只能看着处理完的文件来判断了。

最后提示 vbs 文件其实很危险,不是所有的 vbs 都是善良的,如果不清楚里边的内容的话,请千万不要使用运行!切记,切记!

以下是全部代码,需要保存并更改后缀名为.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
--- EOF ---

留下评论

电子邮件地址不会被公开。 必填项已用*标注

冀ICP备17005573号-1