如何自动更改大型MS-Word文档中的公式颜色？

Question

正如标题所述，我有一个包含大量公式的大型word文档。是否可以编写宏来检测公式并自动更改颜色？

Answer 1

如果使用Word的 Equations 命令插入公式，则可以通过枚举ActiveDocument.OMaths集合的所有元素来访问公式。然后，您可以使用以下VBA宏应用格式（如文本颜色）：

Sub FormatOMaths()

    Dim formula As OMath

    For Each formula In ActiveDocument.OMaths
        formula.Range.Font.TextColor = RGB(255, 0, 0)
    Next

End Sub