如何用VBA将所有的*.potx文件转换成*.pptx文件？

Sub ConvertPotxToPptx()
    Dim folderPath As String
    Dim fileName As String
    Dim pptApp As Object
    Dim pptPresentation As Object
    
    ' 设置文件夹路径
    folderPath = "C:\YourFolderPath\"
    
    ' 创建PowerPoint应用程序对象
    Set pptApp = CreateObject("PowerPoint.Application")
    
    ' 遍历文件夹中的所有文件
    fileName = Dir(folderPath & "*.potx")
    Do While fileName <> ""
        ' 打开.potx文件
        Set pptPresentation = pptApp.Presentations.Open(folderPath & fileName)
        
        ' 另存为.pptx文件
        pptPresentation.SaveAs folderPath & Left(fileName, Len(fileName) - 5) & ".pptx", 24 ' 24表示.pptx格式
        
        ' 关闭.potx文件
        pptPresentation.Close
        
        ' 继续下一个文件
        fileName = Dir
    Loop
    
    ' 关闭PowerPoint应用程序
    pptApp.Quit
    
    ' 释放对象
    Set pptPresentation = Nothing
    Set pptApp = Nothing
    
    MsgBox "转换完成！"
End Sub