Sub Demo() Dim MathObj As Object For Each MathObj In ActiveDocument.OMaths MathObj.ConvertToNormalText Next End Sub