Создать формулу в Ворде
Цитата:
Sub Macro1()
Selection.InlineShapes.AddOLEObject ClassType:="Equation.3", FileName:="", _
LinkToFile:=False, DisplayAsIcon:=False
SendKeys "GT = K1 x Vc2"
End Sub
Selection.InlineShapes.AddOLEObject ClassType:="Equation.3", FileName:="", _
LinkToFile:=False, DisplayAsIcon:=False
SendKeys "GT = K1 x Vc2"
End Sub
С помощью редактора формул в документе создается формула.
У меня два вопроса:
1) Как произвести форматирование текста формулы: 1 перевести в нижний регистр, 2 - возвести в степень и т.п.?
2) Как текст макроса будет выглядеть на языке Билдера?
Этот вопрос дважды поднимался на форумах, но ответа так и нет. Может это нереально? :o
Внимательно поработала с самим Вордом. Оказывается, созданную формулу можно записать в файл с расширением .doc. Мне это никогда не было нужно, и на эту возможность я не обратила внимание.
А далее указать путь к этому файлу. Формула вставится туда, где находится текущее положение курсора.
Другого варианта нарисовать формулу с помощью Equation.3, видимо, нет. Этот работает.
Цитата:
OleVariant ClassType, FileName;
ClassType = AnsiString("Equation.3");
FileName = AnsiString("C:\\Program Files\\Borland\\CBuilder6\\Projects\\Formula1.doc");
WordApp->Selection->InlineShapes->AddOLEObject(ClassType, FileName, EmptyParam,
EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam);
ClassType = AnsiString("Equation.3");
FileName = AnsiString("C:\\Program Files\\Borland\\CBuilder6\\Projects\\Formula1.doc");
WordApp->Selection->InlineShapes->AddOLEObject(ClassType, FileName, EmptyParam,
EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam);