Sie haben die von Ihnen verwendete Word-Version und das Betriebssystem nicht erwähnt, aber das folgende Makro funktioniert für mich in Word 2010 und 2013 unter 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
Eine Beschreibung aller Parameter für die Find.Execute-Methode finden Sie hier .