Microsoft Office Forums - View Single Post - [Solved] Convert all equations to "Normal Text"

Valera · 05-21-2016, 10:57 AM

Quote:

Originally Posted by macropod

Hi Matin,

Try:

Code:

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

Hello. I have a question. I have used this macro, it changed my Mathtext to Normal text then to Times New Roman (otherwise if you convert mathtext to times new roman and skip changing to normal text, then program does not recognise letters and places error symbols in their place). My problems is that all corrent spacing after this change that Mathtext style uses is gone now. When I try to return the spacing settings back by writing ConvertToMathText, it uses the Calambria Math font style again. So... Where can I find the MathText file in Word documents to change the default Math text style to Times New Roman?

If there is no that way, how can I adjust same spacing like in Calambria Math to Times New Roman?

I add a screenshot: https://gyazo.com/3de4f94257faab33dd6ce09182155553
And sorry for my english.