☰

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

tag-icon • tag-icon microsoft-word mathtype
Найти и заменить в уравнениях MathType

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

решение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.Execute можно найти здесь.здесь.

Связанный контент