MIPS标签排序异常：两位数标签（如MIPS10）被误识别为MIPS1

核心问题是提取MIPS标签编号时只取了单个字符：OrderMIPSRanges过程里的order = tagRange.Characters(mipsNum)这行代码，Characters(mipsNum)仅返回第6个字符（比如<MIPS10>的第6位是'1'），完全忽略了后续数字，导致MIPS10被误判为MIPS1。

核心修复：提取完整的MIPS编号 #

替换OrderMIPSRanges中获取order的错误逻辑，改用字符串提取方式获取完整数字编号：

修改后的OrderMIPSRanges过程：

Private Sub OrderMIPSRanges(ByRef MIPStags As Collection, ByRef last As Integer, ByRef insertionRange As Range)
    Dim tagRange As Range
    Dim order As Integer
    Dim continue As Boolean
    Dim tagText As String, mipsPos As Integer, numStart As Integer, numEnd As Integer
    
    For Each tagRange In MIPStags
        tagText = tagRange.Text
        mipsPos = InStr(tagText, "MIPS")
        If mipsPos > 0 Then
            numStart = mipsPos + 4 ' 跳过"MIPS"4个字符，定位到数字起始位
            numEnd = numStart
            ' 遍历找到数字的结束位置（直到遇到非数字字符）
            Do While numEnd <= Len(tagText) And IsNumeric(Mid(tagText, numEnd, 1))
                numEnd = numEnd + 1
            Loop
            ' 提取完整数字并转换为整数
            order = CInt(Mid(tagText, numStart, numEnd - numStart))
        Else
            order = 0 ' 异常情况设为0，跳过处理
        End If
        
        ' 以下原有逻辑保持不变
        If last < order Then
           Select Case order
            Case 1
                tagRange.Expand unit:=wdParagraph
                RemoveMIPStag tagRange, order
                Set insertionRange = tagRange
                last = order
            Case 2 To 99
                tagRange.Expand unit:=wdParagraph
                RemoveMIPStag tagRange, order
                insertionRange.InsertAfter vbNewLine & tagRange.Text
                tagRange.Delete
                last = order
            End Select
        ElseIf order = last Then
            continue = False
            continue = CheckNextMIPS(MIPStags, order + 1)
            If Not continue And CheckNextMIPS(MIPStags, 1) Then
                last = 0
                Exit For
            End If
            If continue And Not order = 99 Then last = order
        ElseIf Not continue And Not CheckNextMIPS(MIPStags, 1) Then
            last = 0
        End If
    Next
    
    last = 0
End Sub

额外优化建议 #

1. 封装通用提取函数，方便复用：

Private Function GetMIPSNumber(ByVal tagText As String) As Integer
    Dim mipsPos As Integer, numStart As Integer, numEnd As Integer
    mipsPos = InStr(tagText, "MIPS")
    If mipsPos > 0 Then
        numStart = mipsPos + 4
        numEnd = numStart
        Do While numEnd <= Len(tagText) And IsNumeric(Mid(tagText, numEnd, 1))
            numEnd = numEnd + 1
        Loop
        If numEnd > numStart Then
            GetMIPSNumber = CInt(Mid(tagText, numStart, numEnd - numStart))
            Exit Function
        End If
    End If
    GetMIPSNumber = 0
End Function

在OrderMIPSRanges中直接调用：order = GetMIPSNumber(tagRange.Text)

2. 优化正则匹配：将原正则\<(MIPS[0-9]{1,})\>*\</\1\>改为\<(MIPS\d+)\>.*?\</\1\>，用非贪婪匹配.*?避免误匹配多个标签的情况。

为什么之前的尝试无效？ #

调整Range、修改Case范围、改动mipsNum值都没解决问题，是因为这些操作未触及核心矛盾——编号提取逻辑仅读取单个字符。只有修复编号的完整提取逻辑，才能正确识别MIPS10及以上的多位数标签。

内容的提问来源于stack exchange，提问作者Caim31