Convert all equations to "Normal Text"

matin_vv · #1 12-04-2011, 06:55 AM

I think I managed the code. Here it is:

Sub MathObjReFormat()
Dim MathObj As Object
For Each MathObj In ActiveDocument.OMaths
With MathObj

.ConvertToNormalText
.Range.Font.Name = "Times New Roman"
.Range.Font.Size = 12
.Range.Font.Italic = True
End With
Next
End Sub

WinOps · #2 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