Найти и заменить в уравнениях MathType

Question

Можно ли изменить Det на det во всех уравнениях MathType?

Answer 1

Вы не упомянули версию Word, которую вы используете, и в какой ОС, но следующий макрос работает для меня в Word 2010 и 2013 в Windows:

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.Выполнить метод можно найти здесь.