我来帮你排查这个棘手的PowerPoint VBA错误——ActivePresentation.SaveAs触发的运行时错误429其实很常见，下面是几个经过社区验证的解决方向，你可以逐一尝试：

• 先排查文件路径与权限问题
  有时候错误提示会误导你，根源其实是保存操作本身出了问题：

  • 确认你指定的保存路径是真实存在的，用相对路径时要注意当前演示文稿的实际位置；
  • 避开系统保护的文件夹（比如C盘根目录、Program Files），先尝试保存到桌面这类权限宽松的位置测试；
  • 文件名里别带特殊字符（/ \ : * ? " < > |这些都不行），特殊字符会导致保存失败，进而触发奇怪的ActiveX错误提示。

• 重新注册PowerPoint的ActiveX组件
  错误429大多是因为PowerPoint的核心组件没有正确注册到系统里，试试这个步骤：

  1. 关掉所有Office程序（包括后台运行的）；
  2. 右键点击开始菜单，打开管理员模式的命令提示符；
  3. 根据你的Office版本和系统位数，执行对应的注册命令：
     • 64位Office+64位系统：regsvr32.exe "C:\Program Files\Microsoft Office\root\Office16\PPTVIEW.EXE"
     • 32位Office+64位系统：regsvr32.exe "C:\Program Files (x86)\Microsoft Office\root\Office16\PPTVIEW.EXE"
     • 32位Office+32位系统：regsvr32.exe "C:\Program Files\Microsoft Office\root\Office16\PPTVIEW.EXE"
       （注：Office16对应Office 2016/2019/365，旧版本的话改成Office15（2013）、Office14（2010）即可）
  4. 执行完成后重启电脑，再测试你的代码。

• 彻底检查VBA引用冲突
  你提到已经更新过引用，但可能还有遗漏的问题：

  1. 打开VBA编辑器（按Alt+F11），点击菜单栏的工具 > 引用；
  2. 看看列表里有没有标着丢失的引用，有的话直接取消勾选；
  3. 只保留你实际需要的引用，比如Microsoft PowerPoint xx.x Object Library（xx.x对应你的Office版本），多余的引用很容易引发组件冲突。
     另外，你可以试试用简化的测试代码排查是不是原代码的其他逻辑导致的问题：

  Public Sub SaveNewVersion_PowerPoint()
      Dim savePath As String
      ' 直接用桌面作为测试路径，避免路径问题
      savePath = Environ("USERPROFILE") & "\Desktop\TestSave.pptx"
      On Error Resume Next
      ActivePresentation.SaveAs Filename:=savePath, FileFormat:=ppSaveAsOpenXMLPresentation
      If Err.Number <> 0 Then
          MsgBox "错误详情：" & Err.Description
      End If
      On Error GoTo 0
  End Sub
  

  如果这个简化版能成功运行，那说明原代码里的版本号生成逻辑可能有问题，需要进一步排查。

• 修复Office安装文件
  如果前面的方法都没用，大概率是Office安装文件损坏了：

  1. 打开控制面板 > 程序和功能；
  2. 找到Microsoft Office，右键选择更改；
  3. 先选快速修复（耗时短），如果不行再选联机修复；
  4. 修复完成后重启电脑，再测试代码。

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