vbscript 8.检测方程是否按顺序编号，是否重复编号

Posted 2021-05-21

Sub equationOrder()
    Dim T As table
    Dim aimT As Integer
    Dim lastCall As Integer
    lastCall = 0
    For Each T In ActiveDocument.Tables
        If T.Columns.count = 2 Then
        
            T.Range.Cells(2).Select
            
            If FunctionGroup.existNum(Selection.Text) Then
                aimT = FunctionGroup.getNum(Selection.Text)
                
                If aimT - lastCall = 1 Then
                    lastCall = aimT
                Else
                    Selection.Range.HighlightColorIndex = wdRed
                End If
            End If
        End If
    Next
End Sub