如何用VBA（OMaths对象）修改Word公式工具中的下标文本？

问题根源 #

Word的公式（OMath对象）是结构化元素，下标并非单纯通过字体Subscript属性标记，而是作为OMathSub对象嵌套在公式结构里。你之前的代码直接检查整个公式范围的Font.Subscript属性，无法定位局部下标文本；同时在公式根Range上执行Find，也无法精准匹配下标格式的内容。

解决思路 #

1. 遍历文档中所有公式对象
2. 递归遍历公式内的结构化元素，定位OMathSub（下标）对象
3. 针对下标部分的Range执行查找替换，明确指定匹配下标格式的文本
4. 处理嵌套下标（如下标内部还有公式的情况）

代码实现 #

Sub ReplaceSubscriptInOMaths()
    Dim oMath As OMath
    
    ' 遍历文档中所有公式
    For Each oMath In ActiveDocument.OMaths
        ProcessOMathSubElements oMath
    Next oMath
End Sub

Private Sub ProcessOMathSubElements(ByVal targetOMath As OMath)
    Dim oSub As OMathSub
    Dim subRange As Range
    
    ' 处理当前公式中的所有下标对象
    For Each oSub In targetOMath.Sub
        ' 获取下标文本的Range
        Set subRange = oSub.Sub.Range
        
        ' 执行下标文本的查找替换
        With subRange.Find
            .ClearFormatting
            .Font.Subscript = True ' 仅匹配下标格式的文本
            .Text = "aSmt"
            .Replacement.ClearFormatting
            .Replacement.Text = "Sub"
            .Replacement.Font.Subscript = True ' 替换后保留下标格式
            .Execute Replace:=wdReplaceAll
        End With
        
        ' 递归处理下标内部嵌套的公式元素
        If oSub.Sub.OMaths.Count > 0 Then
            ProcessOMathSubElements oSub.Sub.OMaths(1)
        End If
    Next oSub
    
    ' 递归处理公式内其他元素中的下标（如分数、根号等内部的下标）
    Dim oMathObj As OMathObject
    For Each oMathObj In targetOMath.OMathObjects
        If oMathObj.Type = omathSub Then
            ProcessOMathSubElements oMathObj.OMath
        ElseIf oMathObj.OMaths.Count > 0 Then
            ProcessOMathSubElements oMathObj.OMaths(1)
        End If
    Next oMathObj
End Sub

关键说明 #

• 直接操作OMathSub对象的Sub.Range，确保只针对下标文本处理
• 查找时设置.Font.Subscript = True，避免匹配普通文本
• 递归处理嵌套结构，覆盖所有可能存在下标的场景
• 若需处理上标，只需将OMathSub替换为OMathSup，逻辑完全一致

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