Sub ConvertTextToOMathFormula()
Dim startText As String
Dim currentRange As Range
Dim mathRange As Range
Set currentRange = Selection.Paragraphs(1).Range
startText = Trim(Split(currentRange.Text, vbCr)(0))
currentRange.Text = startText
Set mathRange = currentRange
Set mathRange = Selection.Range.OMaths.Add(mathRange)
mathRange.OMaths(1).BuildUp
mathRange.OMaths(1).Justification = wdOMathJcLeft
End Sub