如何使用VBA在Word文檔中找到公式編輯器？

Question

我正在VBA Excel中編寫一個宏，用於對Word文檔進行一些數據處理。在此期間，我已將整個文檔的字體名稱更改爲Times New Roman。但我不希望在文檔中的「公式編輯器」框中應用相同的更改，因爲它們的字體是「Cambria Math」。將字體更改爲Times New Roman會導致模糊數據。

Answer 1

等式對象在2007年後發生變化。2007年之前，您可以通過聲明Field對象來處理這些對象。例如

UNTESTED

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 

爲了與Equation Objects從2007年起，你必須使用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