Создание кнопки-ссылки на сайт в главном меню редактора

Необходимо в главном меню редактора Word поместить дополнительную кнопку, при нажатии которой откроется во внешнем браузере определенная интернет-страница.

Примерный код:

Sub menuButtonWeb ()
Dim HyperButton As CommandBarButton
Set HyperButton = CommandBars("Menu Bar").Controls.Add(ID:=1576) 'ID - это номер идентификатора иконки
    HyperButton.HyperlinkType = msoCommandBarButtonHyperlinkOpen
    HyperButton.TooltipText = "http://wordexpert.ru/"
End Sub

Чтобы получить список идентификаторов иконок и их соответствий командам, пунктам меню и панелей, следует выполнить следующий макрос:

Sub viewID()
'Макрос отображения идентификаторов панелей инструментов, команд и пунктов меню
Dim comBar As CommandBar
Dim comBarControl As CommandBarControl
Dim i As Integer
For Each comBar In CommandBars
   For Each comBarControl In comBar.Controls
      With Selection
         .TypeText comBarControl.Caption & " - " & comBarControl.ID & " - " & _
         comBar.Name & vbCrLf
      End With
   Next
Next
End Sub

• Подписаться на рассылку " Windows и Office: новости и советы "
• Обратиться в "Интерфейс" за дополнительной информацией/по вопросу приобретения продуктов