不对 没有MathFormat

非常抱歉，我的回答仍然有误。在PowerPoint VBA中，获取Math Zones的OMML标识符需要使用Open XML SDK for Microsoft Office或其他XML解析库来解析PPTX文件中的幻灯片XML数据。以下是一个示例代码，可以获取指定幻灯片中所有Math Zones的OMML标识符：

Sub GetMathZonesOMML()
    Dim sld As Slide
    Dim shp As Shape
    Dim xml As String
    Dim xmlDoc As MSXML2.DOMDocument60
    Dim nsmgr As MSXML2.IXMLDOMNamespaceManager
    Dim node As MSXML2.IXMLDOMNode
    Dim omml As String
    
    Set sld = ActivePresentation.Slides(1) '指定要获取的幻灯片
    
    For Each shp In sld.Shapes
        '判断是否为Math Zone
        If shp.Type = msoGroup Then
            If shp.GroupItems(1).HasTextFrame Then
                If shp.GroupItems(1).TextFrame.HasText Then
                    xml = shp.GroupItems(1).TextFrame.TextRange.MathZones(1).OMML
                    If xml <> "" Then
                        '解析OMML标识符
                        Set xmlDoc = New MSXML2.DOMDocument60
                        xmlDoc.LoadXML xml
                        Set nsmgr = xmlDoc.createNSResolver(xmlDoc.DocumentElement)
                        nsmgr.declarePrefix "m", "http://schemas.openxmlformats.org/officeDocument/2006/math"
                        Set node = xmlDoc.SelectSingleNode("//m:oMath", nsmgr)
                        omml = node.Attributes.getNamedItem("xmlns:m").Text
                        Debug.Print omml
                    End If
                End If
            End If
        End If
    Next shp
End Sub

在这个示例中，我们首先获取指定幻灯片中的所有形状。对于每个形状，我们检查是否为Math Zone。如果是，我们获取其OMML代码并使用MSXML2.DOMDocument60解析它。然后，我们从解析后的XML中提取OMML标识符并打印到调试窗口中。

请注意，此示例仅适用于PowerPoint 2013及更高版本。如果您使用的是较早的PowerPoint版本，则需要使用较旧的XML解析库。