Attribute VB_Name = "z_UIRibbon"
' Обработка нажатий на кнопки в риббоне
Option Explicit

Sub OnRibbonBtn(control As IRibbonControl)
  Select Case control.ID
    Case "ImportWord":    Call RunImportWord
    Case "FollowLink":    Call RunFollowLink
    Case "ClearAll":      Call RunClearAll
  End Select
End Sub