OMath.Type (Word)

Returns or sets a WdOMathType constant that represents whether an equation is displayed inline with the text around it or displayed on its own line. Possible return values are wdOMathDisplay - Professional format, wdOMathInline - Inline.

Dim objRange As Range 
Dim objEq As OMath 
 
Set objRange = Selection.Range 
objRange.Text = "Celsius = (5/9)(Fahrenheit - 32)" 
Set objRange = Selection.OMaths.Add(objRange) 
Set objEq = objRange.OMaths(1) 
objEq.Type = wdOMathInline