Sub MathObjReFormat() Dim MathObj As Object For Each MathObj In ActiveDocument.OMaths With MathObj .ConvertToNormalText .Range.Font.Name = "Times New Roman" End With Next End Sub