Не работает Application.Evaluate

[Mint86]

Здравствуйте,

Есть калькулятор выражений. Код работает в excel. Но в MS Word не работает так как в Word нет метода Application.evaluate.

Нужна помощь с поиском аналога данного метода в Word..

Private Sub TextBox1_Change()

    Dim strExpr As String, p As Long, ss As String, qwer As String, i As Integer, a
    On Error Resume Next
    strExpr = TextBox1.Value
    Do
        p = InStr(strExpr, ",")
        If p = 0 Then Exit Do Else strExpr = Left(strExpr, p - 1) & "." & Mid(strExpr, p + 1)
    Loop
    If strExpr = Empty Then
        Label3.Caption = "": Label1.Caption = ""
    Else
        Label3.Caption = Application.Evaluate(strExpr)
        a = Split(Label3.Caption, ",")
        qwer = StrReverse(a(0))
        For i = 1 To Len(qwer)
            If i Mod 3 = 0 Then ss = ss & Mid(qwer, i, 1) & " " _
                Else ss = ss & Mid(qwer, i, 1)
        Next
        Label1.Caption = StrReverse(ss): ss = ""
        If UBound(a) > 0 Then Label1.Caption = Label1.Caption & "," & a(1)
    End If
 
End Sub

Ругается на эту строчку:

Label3.Caption = Application.Evaluate(strExpr)

Заменил эту строчку на:

Selection=strExpr
Label3.Caption = Selection.Calculate(strExpr)

но, при этом математическое выражение написанное внутри TextBox1 пишется/копируется в документ Word...

[IgorGO]

запустите Excel посчитайте в нем

[Mint86]

А без запуска экземпляра Excel есть варианты решения?
Selection.Calculate возвращает значение Single что также не подходит...
Может формулу поля вставлять?

[EducatedFool]

А в чём сложность запустить в фоне невидимый Excel, и использовать его для вычислений?
на производительности практически не скажется
требует всего 2 дополнительных строк кода (создать экземляр, и уничтожить его)

не думаю, что что-то аналогичное есть в Word, - всё-таки, он для других задач создавался..

[Mint86]

Подскажите, можно ли сделать это (запуск экземпляра excel) без подключения в tools/references?

После создания экземпляра excel необходимо использовать конструкцию вида:
Excel.Application.Evaluate ?

Нужно ли обработать ошибку отсутствия на машине установленного Excel? Или не имеет значения установлен excel или нет..?

[IgorGO]

до этого только Чаку Норрису удавалось выполнить приложение не установленное на компьютере

кто кроме Вас знает нужно или не нужно проверять все это на любые ошибки?
нужно - проверяйте
не нужно - забейте на проверку

[EducatedFool]

ну вот как-то так я бы сделал:

Sub ToBeRunOutOfMSWord()
    
    Dim XL As Object: Set XL = CreateObject("Excel.Application")
    If XL Is Nothing Then MsgBox "Excel не установлен на этом компе": Exit Sub
    
    txt = "2+2*2"
    res = XL.Evaluate(txt)
    MsgBox txt & " = " & res
    
    XL.Quit: Set XL = Nothing
    
End Sub

[Mint86]

EducatedFool, IgorGO
Спасибо!