Макрос Word и QAxObject

[mihenze]

Понадобилось вставлять формулу(в виде параметр, верхний и нижний индекс) из QT в таблицу Word,  сумел подобрать  макрос в MathType

Код:

Dim w As Range
Dim q As OMath
Set w = Selection.Range
Set w = Selection.OMaths.Add(w)
    Selection.OMaths(1).Functions.Add(Selection.Range, _
        wdOMathFunctionScrSubSup).ScrSubSup.AlignScripts = False
    Selection.MoveLeft Unit:=wdCharacter, Count:=3
    Selection.TypeText Text:="x"
    Selection.MoveRight Unit:=wdCharacter, Count:=1
    Selection.MoveUp Unit:=wdLine, Count:=1
    Selection.MoveRight Unit:=wdCharacter, Count:=1
    Selection.TypeText Text:="n"
    Selection.MoveLeft Unit:=wdCharacter, Count:=3
    Selection.MoveRight Unit:=wdCharacter, Count:=4
    Selection.TypeText Text:="i"
    Selection.MoveRight Unit:=wdCharacter, Count:=1

Но совершенно не понимаю как преобразовать их для использования в Qt. Очень прошу помощи.