如何使用 VBA 在 word 文档中查找公式编辑器？答案

【问题标题】：How to find equation editor in word document using VBA?如何使用 VBA 在 word 文档中查找公式编辑器？
【发布时间】：2013-12-17 10:55:32
【问题描述】：

我正在用 VBA Excel 编写一个宏，用于对 word 文档进行一些数据处理。在此期间，我将整个文档的字体名称更改为 Times New Roman。但我不希望将相同的更改应用于文档中的“方程式编辑器”框，因为它们的字体是“Cambria Math”。将字体更改为 Times New Roman 会导致数据不明确。

【问题讨论】：

您使用的是哪个 MS Office 版本？
我使用的是office 2007

标签： vba excel ms-word

【解决方案1】：

Equations 对象在 2007 年之后发生了变化。在 2007 年之前，您可以通过声明 Field 对象来使用这些对象。例如

未经测试

Sub Sample()
    Dim fldEqn As Field

    For Each fldEqn In ActiveDocument.Fields
        If fldEqn.Type = wdFieldEmbed Then
            If InStr(1, fldEqn, "Equation.3") Then
                With fldEqn.Result.Font
                   '
                   '~~> Rest of the code
                   '
                End With
            End If
        End If
    Next oField
End Sub

要从 2007 年开始使用 Equation Objects，您必须使用 OMaths 集合。

您可以使用此代码更改所有方程式的字体

Sub Sample()
    Dim eqns As OMath

    For Each eqns In ActiveDocument.OMaths
        With eqns.Range.Font
            '
            '~~> Rest of the code
            '
        End With
    Next
End Sub

【讨论】：

非常感谢 Siddharth...有什么方法可以让我找到框图并更改它们的字体类型？？？
如何插入框图？插入 |形状？
我实际上是在将多个文档合并为一个，bt 在合并时，字体、段落设置和行距都在变化。我需要纠正这一点。我正在尝试使用 activedocument.shapes 方法。有没有更好的办法？
我认为您需要为此提出一个单独的问题 :) 当您这样做时，请解释确切的情况。
好的，谢谢您的帮助 siddharth。