Справочник функций

Ваш аккаунт

Войти через: 
Забыли пароль?
Регистрация
Информацию о новых материалах можно получать и без регистрации:

Почтовая рассылка

Подписчиков: -1
Последний выпуск: 19.06.2015

Создать формулу в Ворде

1.2K
30 сентября 2005 года
richel
142 / / 20.01.2005
Есть такой макрос:
Цитата:
Sub Macro1()
Selection.InlineShapes.AddOLEObject ClassType:="Equation.3", FileName:="", _
LinkToFile:=False, DisplayAsIcon:=False
SendKeys "GT = K1 x Vc2"
End Sub


С помощью редактора формул в документе создается формула.
У меня два вопроса:
1) Как произвести форматирование текста формулы: 1 перевести в нижний регистр, 2 - возвести в степень и т.п.?
2) Как текст макроса будет выглядеть на языке Билдера?
Этот вопрос дважды поднимался на форумах, но ответа так и нет. Может это нереально? :o

1.2K
01 октября 2005 года
richel
142 / / 20.01.2005
Я догадалась, как работать в редакторе формул.
Внимательно поработала с самим Вордом. Оказывается, созданную формулу можно записать в файл с расширением .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);

Реклама на сайте | Обмен ссылками | Ссылки | Экспорт (RSS) | Контакты
Добавить статью | Добавить исходник | Добавить хостинг-провайдера | Добавить сайт в каталог