如何从显示模式方程中告诉MS字段

Question

我想使用VBA来做一些关于普通MS字段的事情。但显示模式方程看起来就像一个段落。请问有人告诉我他们之间的区别吗？或者提供一个VBA示例来区分它们。

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

一个丑陋的功能：

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