du musst schon dazu sagen das es sich um Word handelt. 

Sub ConvertTextToOMathFormula()
    Dim startText As String
    Dim currentRange As Range
    Dim mathRange As Range


    ' Aktuelle Cursorposition ermitteln
    Set currentRange = Selection.Paragraphs(1).Range

    ' Den Text des Absatzes, in dem sich der Cursor befindet, holen
    startText = Trim(Split(currentRange.Text, vbCr)(0)) ' Nur den Text der aktuellen Zeile

    ' Entferne den alten Text und bereite die Formel vor
    currentRange.Text = startText

    ' Definiere den Bereich für die mathematische Formel
    Set mathRange = currentRange ' Nutze das erste Wort als Formel
    Set mathRange = Selection.Range.OMaths.Add(mathRange)

    ' Formel anwenden
    mathRange.OMaths(1).BuildUp

    ' Absatz linksbündig ausrichten
    mathRange.OMaths(1).Justification = wdOMathJcLeft
  
End Sub