在 MathType 方程中尋找和替換

在 MathType 方程中尋找和替換

是否可以將所有MathType方程式Det改為?det

答案1

您沒有提到您正在使用的 Word 版本以及在哪個作業系統上,但以下巨集在 Windows 上的 Word 2010 和 2013 中適用於我:

Dim eqn As OMath

Sub EquationSearchReplace()
    For Each eqn In ActiveDocument.OMaths
        eqn.ConvertToNormalText
        eqn.Range.Find.Execute FindText:="Det", ReplaceWith:="det", MatchCase:=True, Wrap:=wdFindContinue, Replace:=wdFindContinue
        eqn.ConvertToMathText
    Next
End Sub

Find.Execute方法所有參數的說明可以找到這裡

相關內容