Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Программирование, связанное с MS Office > Вставка переменной в редактор формул

Автор: kminas 15.11.2006, 23:36

Как вставить переменную в редактор формул Word?

Автор: mihanik 16.11.2006, 07:29

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

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

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

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

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

Автор: kminas 18.11.2006, 20:01

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

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

Автор: mihanik 20.11.2006, 14:25

Хм...

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

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

Код


Dim fld As InlineShape

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

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

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

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

Автор: mihanik 20.11.2006, 14:42

Так!

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

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

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

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

Вот так-то.

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

Автор: mihanik 20.11.2006, 15:22

Вот так я ввёл формулу "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

Автор: kminas 7.4.2008, 10:30

Спасибо! Со временем опять займусь этой темой. Извини, только сейчас нашел твои ответы.