ppt批量转为pptx格式。

最新推荐文章于 2025-09-16 09:05:36 发布

原创最新推荐文章于 2025-09-16 09:05:36 发布 · 9.2k 阅读

14 ·

CC 4.0 BY-SA版权

文章标签：

#ppt

本文介绍如何使用VBA代码批量将PPT文件转换为PPTX格式，包括设置文件路径、运行代码的具体步骤，适用于需要大量转换演示文稿格式的场景。

大家可能会有批量将ppt转为pptx格式的需求。

不过不要怕下面的代码，这只是让你粘贴复制的简单操作，不懂代码的完全不用担心。只要把代码中的一行，改成你的所有*.ppt文件所在路径即可。

废话不多说，步骤为：

1.随意打开一个ppt或者pptx文件（目的是打开Powerpoint这个软件）

我随意打开了一个简单的ppt:
在这里插入图片描述

2.按快捷键Alt+F11打开VBA(Microsoft Visual Basic for Applications)窗口，目的是将下面的代码插入到VBA模块里。

插入-模块-将下面的代码复制到打开的模块里。
在这里插入图片描述

3.重要一步:就是将你的所有*.ppt文件目录放在第7行的双引号内。不过具体操作中要说明的是：

我的路径是

E:\ppt文件\项目ppt

放入第7行时候，一定要在路径后面加个反斜杠\,不然的话运行程序没反应的。

sSourcePath = "E:\ppt文件\项目ppt\"  '..第7行

这样表明是文件夹内的文件。
在这里插入图片描述

'pptx转pdf、ppt  '..第1行
Option Explicit  '..第2行
Sub ppt2pptx()   '..第3行
On Error Resume Next '..第4行
Dim sEveryFile As String, sSourcePath As String, sNewSavePath As String '..第5行
Dim CurPpt As Object  '..第6行
sSourcePath = "E:\ppt文件\项目ppt\"  '..第7行
'假定待转换的pptx文件全部在"E:\ppt文件\项目ppt\"下，需要按实际情况修改。..第8行
sEveryFile = Dir(sSourcePath & "*.ppt")  '..第9行
Do While sEveryFile <> ""  '..第10行
   Set CurPpt = Presentations.Open(sSourcePath & sEveryFile, msoTrue, , msoFalse)  '..第11行
   sNewSavePath = VBA.Strings.Replace(sSourcePath & sEveryFile, ".ppt", ".pptx")  '..第12行
   '如果想把ppt导出pdf，就把第12行行尾的pptx换成pdf并且15行的ppSaveAsDefault改为ppSaveAsPDF即可 ..第13行
   '转化后的文件在同文件目录下，当然你可以按需修改。..第14行
   CurPpt.SaveAs sNewSavePath, ppSaveAsDefault '..第15行
   'pdf对应ppSaveAsPDF,ppt对应ppSaveAsPresentation,pptx对应ppSaveAsDefault
   CurPpt.Close SaveChanges:=False
   sEveryFile = Dir
Loop
Set CurPpt = Nothing
End Sub