Question

微软凭借其无限的智慧，决定Office 2010应用程序的默认文件格式应为发布时13年（Office 97-2002）的格式。

较新的格式（2007及更新版本）将数据保存在压缩的XML文件中，这些文件要小得多，并且还允许许多其他功能。我们的公司IT部门没有或无法设置组策略以强制用户默认以新格式保存，因此我编写宏来调整我们部门中每个人的设置。

我可以通过执行以下VBA代码（我从Excel工作簿运行它）在Excel和Word中执行此操作：

Public Sub SetExcelSave()

  Dim myExcel As Excel.Application

  Set myExcel = New Excel.Application
  Excel.DefaultSaveFormat = xlOpenXMLWorkbook
  Excel.Quit

  Set Excel = Nothing

End Sub

Public Sub SetWordSave()

  Dim myWord As Word.Application
  Set myWord = New Word.Application

  Word.DefaultSaveFormat = wdFormatDocumentDefault
  Word.Quit

  Set Word = Nothing

End Sub

但是，我还没有找到适当的设置来在PowerPoint中进行调整。有谁知道该财产在哪里或被称为什么？

此代码将不干净地编译，在PPT.DefaultSaveFormat行上出错：

Public Sub SetPowerPointSave()

  Dim PPT As PowerPoint.Application
  Set PPT = New PowerPoint.Application

  PPT.DefaultSaveFormat = ppSaveAsOpenXMLPresentation
  PPT.Quit

  Set PPT = Nothing

End Sub

我已经在Office Application Object documentation中翻阅了PowerPoint，但我还没找到我之后的内容。我很可能不知道自己在寻找什么，只是忽略了它。

是否有人知道我应该设置哪些属性以便能够以编程方式更改此内容？

Answer 1

PPT 2007及更高版本的默认保存格式是新的XML格式（PPTX而不是PPT等）。如果用户（或IT人员通过策略）在File |中覆盖了此项保存|以这种格式保存文件：然后默认为他们选择的任何内容，无论出于何种原因。

此类应用程序范围的默认值通常不会通过对象模型公开;它们存储在注册表中。在这种情况下，在

HKEY_CURRENT_USER\Software\Microsoft\Office\14.0\PowerPoint\Options

PPTX的DefaultFormat DWORD = 27

替换14.0以上的正确版本; 2007年PPT为12.0，2010年为14.0，等等（无13.0）。

如果您可以在PPT未运行时将所需的值写入注册表，则可以重置默认值。如果您在PPT运行时写入reg，它将不会影响当前的PPT实例，并且当PPT退出时您的更改将被覆盖。

如何在PowerPoint中设置默认保存格式？

1 个答案: