如何从损坏的.pptm文件中恢复vbaproject.bin及VBA代码？

一、优先从损坏的.pptm中提取代码 #

• 手动替换vbaproject.bin：
  1. 将损坏的.pptm文件后缀改为.zip，解压后找到ppt/vbaproject.bin文件。
  2. 新建一个启用宏的空白PowerPoint文件，另存为.pptm格式，同样改后缀为.zip并解压。
  3. 用第一步提取的vbaproject.bin替换空白pptm解压目录里的对应文件，再将文件夹改回.pptm后缀。
  4. 打开替换后的pptm，尝试在VBA编辑器中导出模块。
• 用VBA强制导出模块：
  1. 打开新建的空白pptm，进入VBA编辑器，在「文件→选项→信任中心→信任中心设置→宏设置」里开启「对VBA项目对象模型的访问」。
  2. 插入新模块，粘贴以下代码（替换注释里的路径和文件名）：

Sub ExtractModules()
    Dim vbProj As VBProject
    Dim vbComp As VBComponent
    Dim savePath As String
    
    savePath = "C:\Temp\VBA_Recovery\" ' 先手动创建该文件夹
    Set vbProj = Application.VBE.VBProjects("损坏的PPT文件名") ' 替换为实际文件名
    
    On Error Resume Next
    For Each vbComp In vbProj.VBComponents
        Select Case vbComp.Type
            Case vbext_ct_StdModule: vbComp.Export savePath & vbComp.Name & ".bas"
            Case vbext_ct_ClassModule: vbComp.Export savePath & vbComp.Name & ".cls"
            Case vbext_ct_MSForm: vbComp.Export savePath & vbComp.Name & ".frm"
        End Select
    Next vbComp
    On Error GoTo 0
End Sub

3. 运行代码，查看指定路径下是否生成模块文件。

• 排查系统拦截与权限：
  右键损坏的pptm，取消「只读」属性；暂时关闭Windows Defender或第三方杀毒软件，避免导出操作被拦截。

二、若.pptm恢复失败，还原.ppam文件 #

• 转换.ppam为可编辑的.pptm：
  1. 新建空白pptm，将目标.ppam后缀改为.zip，解压后提取ppt/vbaproject.bin。
  2. 把该bin文件替换到空白pptm的解压目录中，改回.pptm后缀后打开，即可在VBA编辑器中编辑代码，后续可重新导出为.ppam。
• 修复损坏的.ppam：
  若原.ppam无法直接打开，重复上述替换vbaproject.bin的步骤，将原ppam的bin文件替换到新建的空白.ppam（先建pptm再另存为.ppam）的对应位置，尝试恢复内容。

内容的提问来源于stack exchange，提问作者kwibbler