[strls]

Здравствуйте.
Подскажите пожалуйста, кто знает, как работать с формулами в Word 2007 из Deplphi 7?
Получается вставить формулу в документе и писать простые выражения, но никак не выходит задать дробь, степень или другие элементы. А точнее никак не переведу на Deplphi 7 опрератор VisualBasic

Selection.OMaths(1).Functions.Add(Selection.Range, wdOMathFunctionFrac). _Frac.Type = wdOMathFracBar

Он как раз и отвечает за создание дробей, корней и тд.

[Ildar-tsr]

Сообщение от strls

Selection.OMaths(1).Functions.Add(Selection.Range, wdOMathFunctionFrac). _Frac.Type = wdOMathFracBar

А в чем сложность перевода на делфи? Так пробовали?

Код:

1 2 3 4 5

var e: OleVariant; ... e:= CreateOleObject('Excel.Application'); ... e.Selection.OMaths(1).Functions.Add(e.Selection.Range, ?)._Frac.Type:= ?

Вместо знаков вопросов, в редакторе макросов ворда, нажмите на wdOMathFunctionFrac и на wdOMathFracBar правой кнопкой мыши и выберите Quick Info. Вместо них в коде подставьте соответствующий код.

[strls]

Пробовал так

Код:

1 2 3 4 5 6 7 8

var Word: olevariant; begin Word:=CreateOleObject('Word.Application'); { открываем Word  }   Word.Visible:=true;{ делаем его видимым  }   Word.Documents.Add;{ создаем новый документ  }   Word.WordBasic.EquationEdit;{ вставляем уравнение  } Word.Selection.OMaths(1).Functions.Add(word.Selection.Range, 7)._Frac.Type:= 0;{  добавляем дробь }

В результате сообщение об ошибке: OMaths не является методом

[Ildar-tsr]

Не является методом? Ну попробуйте так:

Код:

1 2 3 4 5

Word:=CreateOleObject('Word.Application'); { открываем Word  } Word.Documents.Add;{ создаем новый документ  } Word.WordBasic.EquationEdit;{ вставляем уравнение  } Word.Selection.OMaths.Item(1).Functions.Add(Word.Selection.Range,7);{ добавляем дробь } Word.Visible:=true;{ делаем его видимым }

P.S. Видимым делайте всегда в последнюю очередь.

[strls]

Да, так получилось. Написал

Код:

1	Word.Selection.OMaths.Item(1).Functions.Add(Word.Selection.Range,7).Frac.Type:= 0;

В документ Word вставилась дробь.
Спасибо

[Ildar-tsr]

Сообщение от strls

Да, так получилось. Написал

Код:

В документ Word вставилась дробь.
Спасибо

Задавать type по-моему не обязательно, если не ошибаюсь и так принимается по умолчанию данное значение.
Но хотя лишним не будет.