Цитата:
|
Сообщение от strls
Selection.OMaths(1).Functions.Add(Selection.Range, wdOMathFunctionFrac). _Frac.Type = wdOMathFracBar
|
А в чем сложность перевода на делфи? Так пробовали?
Код:
var e: OleVariant;
...
e:= CreateOleObject('Excel.Application');
...
e.Selection.OMaths(1).Functions.Add(e.Selection.Range, ?)._Frac.Type:= ?
Вместо знаков вопросов, в редакторе макросов ворда, нажмите на wdOMathFunctionFrac и на wdOMathFracBar правой кнопкой мыши и выберите Quick Info. Вместо них в коде подставьте соответствующий код.