Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Equation - редактор формул / 9 сообщений из 9, страница 1 из 1
01.07.2004, 00:32
    #32584379
NCy
NCy
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Equation - редактор формул
Как можно вставить, копировать, редактировать формулы программно?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.07.2004, 10:07
    #32584623
paparome
paparome
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Equation - редактор формул
NCyКак можно вставить, копировать, редактировать формулы программно?
- включи запись макроса
- промоделируй требуемую ситуацию вручную
- останови запись макроса
- посмотри, что там понаписалось

ИМХО - конечно
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.07.2004, 14:20
    #32585312
Yanis
Yanis
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Equation - редактор формул
Поддерживаю
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.07.2004, 15:27
    #32585534
big-duke
big-duke
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Equation - редактор формул
4paparome,Yanis - сами то пробовали в ворде записать макрос на Equation Editor ?
Код: plaintext
1.
2.
Selection.InlineShapes.AddOLEObject ClassType:="Equation.3", FileName:="", _
         LinkToFile:=False, DisplayAsIcon:=False

...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.07.2004, 16:02
    #32585657
naPmu3aH
naPmu3aH
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Equation - редактор формул
Думаю нифига не получится.
IMHO намакросить можно будет только создание Equation Editor object, а впихнуть в него формулу не удасться...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.07.2004, 09:08
    #32586366
Yanis
Yanis
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Equation - редактор формул
Ну все, сдаюсь...

Код: plaintext
1.
2.
3.
4.
Sub Macro1()
    Selection.InlineShapes.AddOLEObject ClassType:="Equation.3", FileName:="", _
         LinkToFile:=False, DisplayAsIcon:=False      
    SendKeys "123{LEFT}^9+ehhh"
End Sub

SendKeys работает конечно, но комбинации с Ctrl & Alt обрабатываются не внутри ОЛЕ-объекта, а самим вордом :(
Для теста можно поменять ^9 на ^f, увидим окно поиска ворда

Кто заставит это работать, не забудьте сюда напостить!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.07.2004, 12:30
    #32624893
Yanis
Yanis
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Equation - редактор формул
А как насчет того чтобы обойтись без equation?
( Ctrl+F9, поле EQ )

Код: plaintext
1.
2.
    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, PreserveFormatting:=False
    Selection.TypeText Text:="EQ \I(1,4,\R(x) dx)"
    ActiveWindow.View.ShowFieldCodes = False
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
06.08.2004, 13:16
    #32638531
NCy
NCy
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Equation - редактор формул
YanisА как насчет того чтобы обойтись без equation?
( Ctrl+F9, поле EQ )

Код: plaintext
1.
2.
    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, PreserveFormatting:=False
    Selection.TypeText Text:="EQ \I(1,4,\R(x) dx)"
    ActiveWindow.View.ShowFieldCodes = False


Идея хорошая! Но вот насчет последней строчки - она не скрывает код (Офис ХР). Срабатывает Selection.Fields.Update
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
06.08.2004, 15:07
    #32638850
Yanis
Yanis
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Equation - редактор формул
NCyИдея хорошая! Но вот насчет последней строчки - она не скрывает код (Офис ХР). Срабатывает Selection.Fields.Update У меня срабатывает моя строчка... Офис тоже ХР...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Equation - редактор формул / 9 сообщений из 9, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 470ms
Закрыть
start [/forum/topic.php?fid=61&tablet=1&tid=2186663]:
 0ms
get settings:
 9ms
get forum list:
 12ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 45ms
get topic data:
 12ms
get forum data:
 2ms
get page messages:
 47ms
get tp. blocked users:
 1ms
others: 334ms
total:  470ms
x
x
Закрыть


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