vba - 将 PowerPoint pptm 保存到 pptx

Question

我正在迈出 VBA 的第一步。我已经尝试了很多东西，但我仍然没有想出一种方法来将 .pptm powerpoint 演示文稿保存为 .pptx 格式，并在特定路径中使用相同的文件名？我已经使用以下代码另存为 pdf。

ActivePresentation.ExportAsFixedFormat "c:\"+ Replace(ActivePresentation.Name, "pptm", "pdf")，ppFixedFormatTypePDF，ppFixedFormatIntentPrint，msoCTrue

提前谢谢你。

Answer 1

基本用法是:

With ActivePresentation
    .SaveCopyAs _
        FileName:=.Path & "\" & Left(.Name, InStrRev(.Name, ".")) & "pptx", _
        FileFormat:=ppSaveAsOpenXMLPresentation
End With

(或者您可以使用 .SaveAs。SaveAsCopy 保持当前打开并且不打开副本，而 .SaveAs 将当前设置为保存的版本)

但是，如果您正在保存的 Powerpoint 未至少保存一次，则上述操作将出错(Presentation.Name 中没有可使用 InStrRev 查找的文件扩展名)。您可以测试是否没有句号，也可以使用一种懒惰的方法让 FileSystemObject 为您获取不带扩展名的名称(我很懒，所以我更喜欢这种方法):

所以更好更健壮的方法是:

Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")

With ActivePresentation
    .SaveCopyAs _
        FileName:=fso.BuildPath(.Path, fso.GetBaseName(.Name) & ".pptx"), _
        FileFormat:=ppSaveAsOpenXMLPresentation
End With