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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 14.12.2018, 15:35   #1
WorldMaster
Старожил
 
Аватар для WorldMaster
 
Регистрация: 25.08.2011
Сообщений: 2,841
По умолчанию Почему не определен тип.

Здравствуйте. Подскажите пожалуйста чего Word упрямится?

Есть программа которая связана с документов Word через ком объект.
Связь двухсторонняя.
В определенный момент программа посылает в VBA команду. Надо обработать команду и выполнить действие.

В текущем варианте мне нужно найти определенный пункт открытого контекстного меню.

В обзем команда приходит а ворд почему то только в этой функции ругается на типы. Хотя в других частях нормально работает. Подскажите что ему нужно то??

Код:
Private Sub Intercom_OnMessageReceived(ByVal info As String)

Если раскоментировать то user-defined type not defined
'Dim ctl As Control

если Dim убрать то ругается на переменную ctl - Then variable not defined
If info = "MENU" 
    For Each ctl In ActiveDocument.Application.CommandBars("Table Text").Controls
        Debug.Print ctl.Caption
    Next ctl
End If
End Sub




В общем поправилось все.
Подскажите теперь как спрятать меню?

Мой код не работает почему то.
Код:
Private Sub Intercom_OnMessageReceived(ByVal info As String)
Dim ctl As CommandBarControl
Dim Bar As CommandBar
    
If info = "MENU" Then
    For Each ctl In ActiveDocument.Application.CommandBars("Table Text").Controls
        'Debug.Print ctl.Caption
        If ctl.Caption = "Ïîèñê â ÁÄ &1" Then ctl.Execute
    Next ctl
End If

// вот этот код не удаляет открытое контекстное меню
For Each Bar In CommandBars
    If (Bar.BuiltIn = False) And _
    (Bar.Visible = False) Then
        Bar.Delete
    End If
Next Bar
End Sub
Skype - wmaster_s E-Mail - WorldMasters@gmail.com
Работаем по 3 критериям - быстро, качественно, недорого. Заказчик выбирает любые два.

Последний раз редактировалось WorldMaster; 14.12.2018 в 16:01.
WorldMaster вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
С++ - в формуле не определен идентификатор fаbs inka19 Помощь студентам 3 28.03.2017 00:10
Неправильно определен объект Parameter. danka123 БД в Delphi 14 29.09.2013 15:46
Неправильно определен объект Parameter boomko55 Помощь студентам 2 07.06.2012 15:14
wc идентификатор не определен Sylar9 Win Api 10 06.04.2012 15:20
Определен. интеграл Dimon2010 Помощь студентам 2 18.05.2010 16:40