vba - 如何以编程方式获取 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