如何从显示模式方程式分辨出MS文字段落

Question

I want to use VBA to do something about a normal MS word paragraph. But a display mode equation looks just like a paragraph. Can anybody tell me, please, the difference between them? Or provide a VBA example to distinguish them.

Function IsADisplayModeEquation(ParagraphIndex As Long)
    Dim ParagrapLineNum As Long
    Dim EquationLineNum As Long
    ParagrapLineNum = ActiveDocument.Paragraphs(ParagraphIndex).Range.Information(wdFirstCharacterLineNumber)

    n = ActiveDocument.Bookmarks("\page").Range.OMaths.Count
    For I = 1 To n
        EquationLineNum = ActiveDocument.Bookmarks("\page").Range.OMaths(I).Range.Information(wdFirstCharacterLineNumber)
        If (ParagrapLineNum = EquationLineNum) And ActiveDocument.Bookmarks("\page").Range.OMaths(I).Type = wdOMathDisplay Then
            IsADisplayModeEquation = True
            Exit Function
        End If
    Next I
    IsADisplayModeEquation = False
End Function

Answer 1

A ugly function：

Function IsADisplayModeEquation(ParagraphIndex As Long)
    Dim ParagrapLineNum As Long
    Dim EquationLineNum As Long
    ParagrapLineNum = ActiveDocument.Paragraphs(ParagraphIndex).Range.Information(wdFirstCharacterLineNumber)

    n = ActiveDocument.Bookmarks("\page").Range.OMaths.Count
    For I = 1 To n
        EquationLineNum = ActiveDocument.Bookmarks("\page").Range.OMaths(I).Range.Information(wdFirstCharacterLineNumber)
        If (ParagrapLineNum = EquationLineNum) And ActiveDocument.Bookmarks("\page").Range.OMaths(I).Type = wdOMathDisplay Then
            IsADisplayModeEquation = True
            Exit Function
        End If
    Next I
    IsADisplayModeEquation = False
End Function