Buscar y reemplazar en ecuaciones MathType

Buscar y reemplazar en ecuaciones MathType

¿Es posible cambiar Deta deten todas las ecuaciones MathType?

Respuesta1

No has mencionado la versión de Word que estás usando ni en qué sistema operativo, pero la siguiente macro me funciona en Word 2010 y 2013 en 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

Se puede encontrar la descripción de todos los parámetros para el método Find.Execute.aquí.

información relacionada