如何以编程方式获取 PowerPoint 文件格式

Question

我需要确定 ActivePresentation 是 97-2003 还是 2007 格式。我真的不想检查扩展名。

PowerPoint 对象模型中是否有某个属性可以提供此信息？

Answer 1

当演示文稿打开时，没有文件格式，所有文件都在内存中。但是，它来自的文件可以位于较旧的 二进制格式或较新的OpenXML格式。区分差异的最简单方法是查看文件的前几个字节。

对于二进制格式，它是一个始终会启动的 OLE 复合文件字节：0xD0、0xCF、0x11、0xE0、0xA1、0xB1、0x1A、0xE1。

对于较新的格式，它是 ZIP 文件，始终以字节开头：0x50、0x4B、0x03、0x04

查看文件的前几个字节是快速确定文件类型的最佳方法，尽管这需要更多工作。

Answer 2

不幸的是，没有文件格式属性。您必须走扩展路线，例如：

Sub APFileFormat()
Dim ap As Presentation
Set ap = ActivePresentation
Length = Len(ap.Name)
Match = InStrRev(StringCheck:=ap.Name, StringMatch:=".")
ExtentionLength = Length - Match
    Select Case ExtentionLength
        Case 4
            FileFormat = "PowerPoint 2007-2010"
        Case 3
            FileFormat = "PowerPoint 97-2003"
        Case Else
            FileFormat = "undetermined"
    End Select
Debug.Print "The file format of the active presentation is " & FileFormat
End Sub