Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Word
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 29.07.2019, 10:25   #1
Mint86
Пользователь
 
Аватар для Mint86
 
Регистрация: 17.07.2008
Сообщений: 81
По умолчанию Помогите с аналогом метода Application.evaluate в ms word

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

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

Нужна помощь с поиском аналога.

Вот код:
Код:
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)
Mint86 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Visual Basic Application, макросы в Word 2010 OmegaBerkut Microsoft Office Word 2 23.11.2015 22:30
word application, не могу понять и разобраться в параметрах Алексей_2012 Общие вопросы Delphi 3 13.06.2014 23:33
Как разрушить word.application? RISagitov Microsoft Office Excel 2 29.01.2013 16:59
Word.Application NIK2604 Компоненты Delphi 6 06.06.2012 22:40
Вызов процедуры из Word.application ? NIKOLASCS Microsoft Office Excel 5 13.11.2009 00:21