[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

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

Код:

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

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

[strls]

Пробовал так

Код:

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]

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

Код:

  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]

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

Код:

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

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

[Ildar-tsr]

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

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

Код:

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

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

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