Активация кнопки на Ribbon

Для начала вам нужно обеспечить срабатывание VBA-обработчика события WindowSelectionChange. Это можно сделать в следующей последовательности:
1. Создать модуль класса ThisApplication в проекте Normal. В этом модуле объявить публичную переменную oApp

Public WithEvents oApp As Word.Application

2. В этом же модуле класса создайте подпрограмму с именем oApp_WindowSelectionChange и обработкой вашего события

Private Sub oApp_WindowSelectionChange(ByVal sel As Selection)
If Selection.Tables.Count > 0 Then
   'Находимся внутри таблицы - обрабатываем событие
   '...
End If
End Sub

3. В модуле NewMacros объявите на уровне модуля создание экземпляра объекта oAppClass (типа ThisApplication) и в подпрограмме AutoExec свяжите его с объектом Application:

Dim oAppClass As New ThisApplication

Public Sub AutoExec()

   Set oAppClass.oApp = Word.Application

End Sub

Тогда при старте Word будет создаваться обработчик события WindowSelectionChange. Добившись этого, переходить к созданию кода изменения режима отображения командной кнопки на Ribbon (ленте инструментов Word).

Что касается динамического изменения свойств элементов управления на ленте, то хорошие примеры (правда, для Excel, но для Word все делается точно так же) разобраны на сайте Рон де Брюина внешняя ссылка

К сожалению, у меня проверить ваш пример не получается из-за собственных подпрограмм перехвата событий, связанных с Ribbon'ом. Но я слышал, что проблему "потери" связи с Ribbon'ом решить можно. Вот, пжл, посмотрите на сайте того же Рон де Брюина, который предлагает пример, основанный на идее другого эксперта.
внешняя ссылка