待整理

  Sub ConvertEquations()
    ' 最终稳定版：采用倒序处理逻辑，确保转换成功 [5](@ref)
    On Error GoTo ErrorHandler
    Dim sel As Selection
    Dim selRange As Range
    Dim positions As New Collection
    Dim i As Long
    Dim currentPos As Long
    Dim startPos As Long, endPos As Long

    ' --- 检查是否有选区 ---
    If Selection.Type = wdSelectionIP Then
        MsgBox "请先选中需要转换的文本区域！", vbExclamation, "操作提示"
        Exit Sub
    End If

    Set sel = Application.Selection
    Set selRange = sel.Range

    ' --- 阶段一：安全查找，只记录公式位置，不修改文档 ---
    currentPos = 1
    Do While currentPos <= Len(selRange.Text)
        startPos = InStr(currentPos, selRange.Text, "$")
        If startPos = 0 Then Exit Do
        endPos = InStr(startPos + 1, selRange.Text, "$")
        If endPos = 0 Then Exit Do

        ' 将找到的位置对（相对于选区开头）添加到集合中
        Dim posPair(1) As Long
        posPair(0) = startPos
        posPair(1) = endPos
        positions.Add posPair
        currentPos = endPos + 1
    Loop

    ' --- 阶段二：从后往前，根据记录的位置进行转换 ---
    If positions.Count > 0 Then
        For i = positions.Count To 1 Step -1
            Dim currentRange As Range
            Dim currentPair As Variant
            currentPair = positions(i)
            Set currentRange = selRange.Duplicate
            currentRange.Start = selRange.Start + currentPair(0) - 1
            currentRange.End = selRange.Start + currentPair(1)

            ' 提取两个$符号之间的公式文本
            Dim equationText As String
            equationText = Mid(currentRange.Text, 2, Len(currentRange.Text) - 2) ' 去掉首尾的$

            ' 清除当前范围的内容（包括$符号），并插入公式
            currentRange.Delete
            Set currentRange = ActiveDocument.Range(currentRange.Start, currentRange.Start)
            currentRange.Text = equationText
            currentRange.OMaths.Add currentRange
            currentRange.OMaths.BuildUp
        Next i
    End If

    MsgBox "转换成功！共处理 " & positions.Count & " 个行内公式。", vbInformation, "操作完成"
    Exit Sub

ErrorHandler:
    MsgBox "发生了一个错误: " & Err.Description, vbCritical, "宏运行错误"
End Sub