Залипание кнопок на панели Word

[AlexEL]

Написал макрос создающий панель CommandBar.
Создал кнопку (Type:=msoControlButton) при нажатии на которую запускается макрос поиска текста.

Так вот, кнопка срабатывает через раз т.е.:
1. жмем первый раз - макрос отрабатывает нормально (выделяет найденный текст)
2. жмем второй раз - не доходит даже до запуска макроса прописанного в OnAction, единственное что происходи - очистка самопроизвольная StatusBar
3. Жмем третий раз - см п.1.
И так по кругу
Такое происходит не всегда, но уж если началось, не прекращается.
Что может помочь?

Буду благодарен за книги и документацию с практическими примерами по Visual Basic применительно именно к MS Word.

[VictorM]

Здесь надо смотреть код макроса.

[AlexEL]

Код макроса смотрите в моем пакете «Методичка» на сайте http://alex-mail.at.tut.by/.
Залипают кнопки «<<» и «>>» на панели инструментов «Методичка».
Но, я больше грешу на глюки MS Word, т.к. как я уже писал, при повторном нажатии процедура прописанная в OnAction вообще на запускается.

[VictorM]

что-то знакомый пакет..........
где-то я его видел.........

[AlexEL]

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

Код: Выделить всё

Sub Button_Click() ' нажата кнопка на панели 
    '  ...
    On Error Resume Next
    CommandBars.ActionControl.SetFocus ' противозалипание
End Sub