'检查题号 2024-07-24
Sub CheckOrderNo()
    Dim text As String
    Dim cnt As Integer
    cnt = 0
    text = "【解析】"
    With ActiveDocument.Content.Find
        Do While .Execute(FindText:=text) = True
            cnt = cnt + 1
        Loop
    End With
    Dim i As Integer
    Dim t As Integer
    Dim no As String
    Dim repeat As String
    For i = 0 To cnt Step 1
        no = Str(i) & "．"
        t = CountString(no)
        If (t > 1) Then
            repeat = repeat + "第" + Str(i) + "题有" + Str(t) + "个;" + (Chr(13) & Chr(10))
        End If
    Next i
    If (Len(repeat) > 1) Then
        MsgBox repeat, vbOKOnly, "XMATH消息提示"
    Else
        repeat = "共[" + Str(cnt) + "]题，检查通过!"
        MsgBox repeat, vbOKOnly, "XMATH消息提示"
    End If
End Sub


'检查题号是否有重复2024-07-24
Function CountString(text As String) As Integer
    Dim Reg As New VBScript_RegExp_55.regexp
    Dim MC As VBScript_RegExp_55.MatchCollection
    Dim M As VBScript_RegExp_55.Match
    Dim Source As String
    Selection.WholeStory
    Source = Selection.text
    Dim oldTex As String
    Dim count As Integer
    count = 0
    With Reg
        .Global = True
        .Pattern = "\d+．"
        Set MC = .Execute(Source)
        For Each M In MC
            oldTex = CStr(M.Value)
            If StrConv(Trim(M.Value), vbUnicode) = StrConv(Trim(text), vbUnicode) Then
                count = count + 1
            End If
        Next M
    End With
    CountString = count
End Function