Понадобилось вставлять формулу(в виде параметр, верхний и нижний индекс) из 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. Очень прошу помощи.