Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

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

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


Донат для форума - использовать для поднятия настроения себе и модераторам

А ещё здесь можно купить рекламу за 15 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru

Ответ
 
Опции темы
Старый 29.07.2019, 11:25   #1
Mint86
Форумчанин
 
Аватар для Mint86
 
Регистрация: 17.07.2008
Сообщений: 81
Репутация: 10
По умолчанию Помогите с аналогом метода 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 вне форума   Ответить с цитированием
Ответ

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Visual Basic Application, макросы в Word 2010 OmegaBerkut Microsoft Office Word 2 23.11.2015 23: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 01:21


03:22.


Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.

Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru