Модераторы: mihanik
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Вставка переменной в редактор формул 
:(
    Опции темы
kminas
Дата 15.11.2006, 23:36 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 240
Регистрация: 26.10.2005
Где: Ростов-на-Дону

Репутация: нет
Всего: нет



Как вставить переменную в редактор формул Word?
PM MAIL   Вверх
mihanik
Дата 16.11.2006, 07:29 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


-=Белый Медведь=-
****


Профиль
Группа: Комодератор
Сообщений: 4054
Регистрация: 24.4.2006
Где: г. Тверь

Репутация: 9
Всего: 109



Уточни, пожалуйста, что ты имеешь в виду, говоря "переменная".

Какой редактор формул ты используешь?

Стандартный MS Equation 3.0 ?

Так там только формулы набирать можно.
Вычислений он не делает...

Или я что-то не так понял?



--------------------
Программистами не рождаются, - это родовая травма...
user posted imageuser posted image
PM MAIL WWW ICQ   Вверх
kminas
Дата 18.11.2006, 20:01 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 240
Регистрация: 26.10.2005
Где: Ростов-на-Дону

Репутация: нет
Всего: нет



Да. Стандартный MS Equation 3.0 ?

Мне нужно просто вставить туда одно значение, а считать за меня будет VB. Ответ можно вставить в сам Word.


Это сообщение отредактировал(а) kminas - 18.11.2006, 20:09
PM MAIL   Вверх
mihanik
Дата 20.11.2006, 14:25 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


-=Белый Медведь=-
****


Профиль
Группа: Комодератор
Сообщений: 4054
Регистрация: 24.4.2006
Где: г. Тверь

Репутация: 9
Всего: 109



Хм...

Решил сам поэксперементировать с этим делом

Создаю объект.

Код

Dim fld As InlineShape

    Set fld = Selection.InlineShapes.AddOLEObject("Equation.3", "", False, False)


На этом всё...

Может использовать SendKey после создания объекта?

Загадка природы...



--------------------
Программистами не рождаются, - это родовая травма...
user posted imageuser posted image
PM MAIL WWW ICQ   Вверх
mihanik
Дата 20.11.2006, 14:42 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


-=Белый Медведь=-
****


Профиль
Группа: Комодератор
Сообщений: 4054
Регистрация: 24.4.2006
Где: г. Тверь

Репутация: 9
Всего: 109



Так!

Пару часов лазал по Инету в поисках решения.

Пришёл к выводу, что никому ничего об объектной модели Equation.3 не известно.

Поэтому могу порекомендовать только следующее:

1. При помощи программы активизируешь/создаёшь объект.
2. Используя посылку кодов клавишей (SendKey) создаёшь свою формулу.
3. каким-то образом выходишь из объекта...

Вот так-то.

Хотя, обидно...  smile 


Это сообщение отредактировал(а) mihanik - 20.11.2006, 14:44


--------------------
Программистами не рождаются, - это родовая травма...
user posted imageuser posted image
PM MAIL WWW ICQ   Вверх
mihanik
Дата 20.11.2006, 15:22 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


-=Белый Медведь=-
****


Профиль
Группа: Комодератор
Сообщений: 4054
Регистрация: 24.4.2006
Где: г. Тверь

Репутация: 9
Всего: 109



Вот так я ввёл формулу "1/3"

Код

Sub MyMacros()

Dim fld As Object

Set fld = Selection

fld.InlineShapes.AddOLEObject ClassType:="Equation.3", FileName:=""
SendKeys "1/3", 500
SendKeys "{Escape}", 500
Set fld = Nothing

End Sub


Это сообщение отредактировал(а) mihanik - 20.11.2006, 15:23


--------------------
Программистами не рождаются, - это родовая травма...
user posted imageuser posted image
PM MAIL WWW ICQ   Вверх
kminas
Дата 7.4.2008, 10:30 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 240
Регистрация: 26.10.2005
Где: Ростов-на-Дону

Репутация: нет
Всего: нет



Спасибо! Со временем опять займусь этой темой. Извини, только сейчас нашел твои ответы.
PM MAIL   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Программирование, связанное с MS Office"
mihanik staruha

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами



  • Несанкционированная реклама на форуме запрещена
  • Пожалуйста, давайте своим темам осмысленный, информативный заголовок. Вопль "Помогите!" таковым не является.
  • Чем полнее и яснее Вы изложите проблему, тем быстрее мы её решим.
  • Оставляйте свои записи в "Книге отзывов о работе администрации"
  • А вот тут лежит FAQ нашего подраздела


Если Вам понравилась атмосфера форума, заходите к нам чаще!
С уважением mihanik и staruha.

 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Программирование, связанное с MS Office | Следующая тема »


 




[ Время генерации скрипта: 0.0432 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.