powered by simpleCommunicator - 2.0.56     © 2025 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Equation - редактор формул
9 сообщений из 9, страница 1 из 1
Equation - редактор формул
    #32584379
NCy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
NCy
Гость
Как можно вставить, копировать, редактировать формулы программно?
...
Рейтинг: 0 / 0
Equation - редактор формул
    #32584623
Фотография paparome
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
NCyКак можно вставить, копировать, редактировать формулы программно?
- включи запись макроса
- промоделируй требуемую ситуацию вручную
- останови запись макроса
- посмотри, что там понаписалось

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

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

Код: 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
Equation - редактор формул
    #32624893
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
...
Рейтинг: 0 / 0
Equation - редактор формул
    #32638531
NCy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
NCy
Гость
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
Equation - редактор формул
    #32638850
Yanis
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
NCyИдея хорошая! Но вот насчет последней строчки - она не скрывает код (Офис ХР). Срабатывает Selection.Fields.Update У меня срабатывает моя строчка... Офис тоже ХР...
...
Рейтинг: 0 / 0
9 сообщений из 9, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Equation - редактор формул
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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