Не работает Evaluate в VBA for MSWord

[aNJay]

Даже банальный

Private Sub CommandButton1_Click()
    TextBox1.Text = Evaluate("1+2")
End Sub

приводит к ошибке "sub or function not defined".
В Excel етот же код работает без проблем. Не пойму что не так.

[Пименов Александр]

Все очень просто.
Evaluate - это процедура типа, которая находится только в приложении Excel.
Она относится как его объекту Application, так и к некоторым объектам, подчиненным Application. В объектной модели Word процедуры Evaluate нет, поэтому выдается ошибка. Но есть несколько вариантов решения проблемы.

[aNJay]

Спасибо за ответ. Я так и подозревал.

Сообщение от Пименов Александр

Но есть несколько вариантов решения проблемы.

А можно в етом месте поподробнее.

[Пименов Александр]

1. Подключите к Вашему проекту объект Excel, для этого:

• Выделите в редакторе VBA Ваш проект.
• Откройте в редакторе VBA диалоговое окно Tools-->References.
• Поставьте галочку на объекте Microsoft Excel.

2. В модуле кода формы создайте функцию Evaluate:

Public Function Evaluate(Text As String)
Dim xlApp As Excel.Application
    Set xlApp = New Excel.Application ' Создаем новый обект Excel.Application
        xlApp.Visible = False ' Делаем Excel.Application невидимым
        Evaluate = xlApp.Evaluate(Text) ' Присваиваем функции Evaluate значение xlApp.Evaluate(Text)
        '  где Text текстовое выражение
        xlApp.Quit ' Закрываем обект Excel.Application
End Function

Тогда Ваш код:

Private Sub CommandButton1_Click()
    TextBox1.Text = Evaluate("1+2")
End Sub

будет работать.
3. Если Вы хотите чтобы функция Evaluate работа и в других модулях проекта, разместите ее в отдельном модуле, например в модуле Module1, тогда код для кнопки CommandButton1 будет выглядеть так:

Private Sub CommandButton1_Click()
    TextBox1.Text = Module1.Evaluate("1+2")
End Sub

[Скрипт]

Сообщение от Пименов Александр

Evaluate - это процедура типа, которая находится только в приложении Excel.

В VBA нет понятия "тип", есть понятие "класс".

[Пименов Александр]

Сообщение от Скрипт

В VBA нет понятия "тип", есть понятие "класс".

Зато работает.

[Скрипт]

Пименов Александр, просто терминологию лучше использовать обычную, а то информацию тяжело воспринимать.

[Казанский]

Если использовать общепринятую терминологию, то Evaluate - метод объекта Excel.Application. У объекта Word.Application такого метода нет.

Тема раскрыта тут: http://programmersforum.ru/showthread.php?t=222988