Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Создать формулу в Ворде через макрос / 6 сообщений из 6, страница 1 из 1
27.09.2005, 19:46:56
    #33291865
laifik
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Создать формулу в Ворде через макрос
Можно ли создать макрос в вордовском документе с помощью редактора Microsoft Equation 3.0, чтобы нарисовать формулу.
Я его создаю, от выглядит так:
авторSelection.InlineShapes.AddOLEObject ClassType:="Equation.3", FileName:="", _
LinkToFile:=False, DisplayAsIcon:=False

Но сама формула здесь не проглядывается. Этот макрос просто запускает редактор. А как прописать формулу?
...
Рейтинг: 0 / 0
27.09.2005, 23:38:43
    #33292043
White Owl
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Создать формулу в Ворде через макрос
К любому OLE объекту можно обращаться примерно так:
Код: plaintext
1.
2.
dim objEquation as Object
set objEquation = Selection.InlineShapes.AddOLEObject(ClassType:="Equation.3", FileName:="", LinkToFile:=False, DisplayAsIcon:=False)
objEquation.Object.??? = ***
А вот какие там имена методов.... фиг его знает :(
...
Рейтинг: 0 / 0
28.09.2005, 19:33:05
    #33294384
laifik
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Создать формулу в Ворде через макрос
На этом форуме я нашла единственный такой же вопрос. Ответ был таков:
авторSub Macro1()
Selection.InlineShapes.AddOLEObject ClassType:="Equation.3", FileName:="", _
LinkToFile:=False, DisplayAsIcon:=False
SendKeys "123{LEFT}^9+ehhh"
End Sub

Я проверила, макрос работает.
Я давно забыла, с чем "едят" SendKeys. Каждому символу должен соответствовать какой-то код. Мне нужно, чтобы в формуле можно было прописать верхний или нижний регистр, деление в "два этажа", фигурные скобки, знак умножения, степень и т.п. Где это можно найти?
...
Рейтинг: 0 / 0
29.09.2005, 09:27:39
    #33294786
k-nike
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Создать формулу в Ворде через макрос
Попробуй в редакторе VBA найти по F1 по ключевому слову SendKeys.
...
Рейтинг: 0 / 0
29.09.2005, 12:00:02
    #33295293
laifik
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Создать формулу в Ворде через макрос
Да, там есть коды. Но мне показалось, что это не то, что нужно. К форматированию текста эти коды мало имеют отношения. Как же все-таки создать формулу с помощью редактора?
...
Рейтинг: 0 / 0
01.10.2005, 12:01:59
    #33299709
laifik
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Создать формулу в Ворде через макрос
Я догадалась, как работать в редакторе формул.
Мне эту задачу нужно было решить через С++ Билдер.
Внимательно поработала с самим Вордом. Оказывается, созданную формулу можно записать в файл с расширением .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);
...
Рейтинг: 0 / 0
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Создать формулу в Ворде через макрос / 6 сообщений из 6, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]