如何通过VBS实现用PPT批量转换成PDF

发布网友 发布时间：2022-04-20 01:43

我来回答

共2个回答

热心网友 时间：2023-07-13 05:07

如果你是要进行ppt文件转换成pdf文件格式的话，因为pdf文件比较的特殊。所以进行转换时只能在专门的pdf转换器下进行。

方法：ppt批量转换成pdf

打开电脑上的pdf文件然后选择ppt转换成pdf文件

2.点击进入将要转换的ppt文档打开，如文件较多可进行添加文件夹

3.点击“开始转换”文件格式就开始转换了

4.等到转换完成之后，就可以将转换好的文件保存到电脑上

以上就是ppt转换成pdf文件的操作方法和步骤，希望可以帮助到你！

热心网友 时间：2023-07-13 05:08

我用的是精简的office 2007，代码如下：
On Error Resume Next
Set ppt = CreateObject("PowerPoint.application")
Set fso = WScript.CreateObject("Scripting.Filesystemobject")
Set fds = fso.GetFolder("E:\1-1\") '此处可以写自已文件所在的文件夹
Set ffs = fds.Files
For Each ff In ffs
If (LCase(Right(ff.Name,4))=".ppt" Or LCase(Right(ff.Name,4))="pptx" ) And Left(ff.Name,1)<>"~" Then
Set pptfile = ppt.Presentations.Open(ff.Path,false,false,false)
pptfile.Saveas Left(ff.Path,InStrRev(ff.Path,"."))&"pdf",32,false
If Err.Number Then
MsgBox Err.Description
End If
End If
Next
pptfiles.Close
ppt.Quit
Set pptfile = Nothing
Set ppt = Nothing
Set objFSO = CreateObject("Scripting.FileSystemObject") '此处是转换后删掉PPT文件的
objFSO.DeleteFile("E:\1-1\*.ppt")
objFSO.DeleteFile("E:\1-1\*.pptx")
MsgBox "PPT文件已全部轩换为PDF格式!并且已删除PPT文档!"
你可以试下，应该是没有问题的，我本人一直在用……