ppt批量转为/另存为pptx格式

**

ppt批量转为/另存为pptx格式

**

（1）将要批量转格式的ppt全部放在同一个文件夹内

（2）用powerpoint格式随便打开其中一个，按快捷键alt+F11打开vba，点击插入——模块

（3）将下面的代码（第1行至end sub）复制进去。

'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 = "C:\Users\WHJZ\Desktop\3\"  '..第7行
'假定待转换的pptx文件全部在"C:\Users\WHJZ\Desktop\3\"下，需要按实际情况修改。..第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

(4)重点！！！！
第三步中的第7行要将文件位置【C:\Users\WHJZ\Desktop\3\】改成自己保存的文件夹位置，注意在地址后面要加反斜杠

（5）修改完自己的文件夹位置后，点击运行按钮，等待下方提示成功生成pptx文件

（6）回到文件夹就能看到pptx文件咯