vbscript 6.检测图/表/方案是否按顺序编号，是否有重复编号

Posted 2021-05-21

Sub q(str As String)
Dim lastCall As Integer
Selection.HomeKey wdStory
lastCall = 0
    With Selection.Find
        .Text = str + " [0-9]@."
        .Font.Bold = 1
        .MatchWildcards = True
        Do
        .Execute
            If Not .Found Then
                Exit Do
            Else
                selectNum = CInt(FunctionGroup.sectionNum(Selection.Text))
                 If selectNum - lastCall = 1 Then
                    lastCall = selectNum
                Else
                    Selection.Range.HighlightColorIndex = wdYellow
                 End If
            End If
        Loop
    End With
End Sub