Convert all equations to "Normal Text"

Valera · #16 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.

WinOps · #17 02-14-2023, 03:52 AM

Hi

this is not working of my office 2016

it says no omath found !

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Wierd symbols inplace of "space", "indentation" etc	aka.bhagvanji	Word	5	02-16-2012 11:50 AM
Partial highlighting of text in a row in "Final Showing Markup" setting	Redpoint	Word Tables	4	03-11-2011 04:29 PM
lines aren't visible in "normal" view	emrlaw	Word	2	05-12-2010 02:29 AM
"Microsoft Excel Application" missing in the "Component Services" on win08	sword.fish	Excel	0	02-26-2010 02:09 PM
merge field formatting problem with "text to be inserted before"	wissam	Mail Merge	0	12-13-2009 12:50 AM