Public Sub ShowNewToolbar()
Dim cBar As CommandBars
For Each cBar In CommandBars
If cBar.Name = "Assistant" Then
cBar.Visible = True
Exit Sub
End If
Next
Dim CBar1 As CommandBar
Set CBar1 = CommandBars.Add("Assistant", msoBarTop)
CBar1.Enabled = True
CBar1.Visible = True
Dim But1 As CommandBarControl
Set But1 = CBar1.Controls.Add(msoControlButton)
But1.Caption = "Показать помошника"
But1.FaceId = 52
But1.OnAction = "ShowAssistant"
DimBut2 As CommandBarControl
Set But2 = CBar1.Controls.Add(msoControlButton)
But2.Caption = "отключить помошника"
But2.FaceId = 103
But2.OnAction = "DisableAssistant"
End Sub

Public Sub showAssistant()
Assistant.On = True
Assitant.Visible = True
Dim cBarCont As CommandBarControl
For Each cBarCont In CommandBars(41).Controls
If cBarCont.Caption = "Работа с помошником" Then
Exit Sub
End If
Next
Dim CBar1 As CommandBar
Set CBar1 = CommandBars(41)
CBar1.Enabled = True
CBar1.Visible = True
Dim Menu1 As CoomandBar
Dim SubMenu1 As CommandBarPopup
Dim SubMenu1Item As CommandBarButton
Set Menu1 = CBar1.Controls.Add(msoControlPopup)
Menu1.Caption = "Работа с помошником"
Set SubMenu1 = Menu1.Controls.Add(msoControlPopup)
SubMenu1.Caption = "Действия"
Set SubMenu1Item = SubMenu1.Controls.Add(msoControlButton)
SubMenu1Item.FaceId = 5
SubMenu1Item.Caption = "Показать выделенный текст"
SubMenu1Item.OnAction = "TextToAssistant"
End Sub
Public Sub DisableAssistant()
Assistant.On = False
Dim cBarCont As CommadnBarControl
For Each cBarCont In CommandBars(41).Controls
If cBarCont.Caption = "Работа с помошником" Then
CBarCon.Delete
Exit Sub
End If
Next
End Sub
Public Sub TextToAssistant()
Dim oBall As Balloon
Set oBall = Assistant.NewBalloon
oBall.Text = Selection.Text
oBall.Show
End Sub