如何使用VBA在Microsoft Word中批量选中所有数学公式

可以通过VBA实现批量选中Word文档内全部数学公式的需求，针对性能优化有两类常用方案，可根据使用场景选择：

方案1：查找替换法（性能最优） #

适用场景：所有公式使用默认的Cambria Math字体（绝大多数情况符合）
这个方法不需要遍历所有公式，直接通过Word的查找替换能力批量匹配修改，运行速度最快，示例代码如下（将所有公式字体替换为Latin Modern Math）：

Sub Eq2LM()
    With ActiveDocument.Content.Find
        .ClearFormatting
        .Format = False
        .Font.Name = "Cambria Math"
        .Text = ""
       
        With .Replacement
            .ClearFormatting
            .Font.Name = "Latin Modern Math"
            .Text = ""
        End With
        .Execute Forward:=True, Replace:=wdReplaceAll
    End With
End Sub

如果是要批量修改公式颜色，只需要修改替换部分的字体颜色参数即可，不需要遍历每个公式。该方法的限制是仅能匹配字体为Cambria Math的内容，如果有手动修改过公式字体的情况会出现遗漏。

方案2：通用批量选中法（兼容性最优） #

适用场景：存在手动修改过字体的公式，不依赖字体属性匹配
如果需要先一次性选中所有公式再统一修改属性，可以用AddToRange方法把所有公式范围加入选中区域，避免逐一切换选中的性能损耗，代码示例如下：

Sub SelectAllEquations()
    Dim eq As OMath
    ' 初始化选中位置为文档开头
    ActiveDocument.Range(0, 0).Select
    ' 遍历所有公式，将范围加入选中区域
    For Each eq In ActiveDocument.OMaths
        Selection.AddToRange eq.Range
    Next
    ' 统一修改选中的所有公式属性，此处以修改为深蓝色为例
    Selection.Font.ColorIndex = wdDarkBlue
End Sub

这个方法的性能远高于逐一遍历选中修改的写法，同时可以匹配所有OMath类型的公式，不会遗漏改了字体的公式。

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