Добавление своих пунктов в контекстное меню

Sub Создание_контекстного_Меню()
 
'Если нужно поменять контекстное меню, нужно:
'1. менять код процедуры "СозданиеМеню"
'2. запустить вручную процедуры "УдалениеМеню", "СозданиеМеню"
'3. будет новое меню
 
With Application.CommandBars("Table Text") 'контекстное меню появляется  когда курсор находится в таблице
 
With .Controls.Add(msoControlButton)
.OnAction = "Script_для_контекстных_меню.Удалить_строку_таблицы"
.Caption = "Удалить строку таблицы &0" '"&" перед знаком, означает, что этому знаку назначена горячая клавиша
End With
 
With .Controls.Add(msoControlButton)
.OnAction = "Script_для_контекстных_меню.Добавить_строку_таблицы_1"
.Caption = "Добавить 1 строку таблицы " & ChrW(8595) & " &1" '"&" перед знаком, означает, что этому знаку назначена горячая клавиша, ChrW(8595)- это стрелочка вниз
End With
 
With .Controls.Add(msoControlButton)
.OnAction = "Script_для_контекстных_меню.Добавить_строку_таблицы_2"
.Caption = "Добавить 2 строки таблицы " & ChrW(8595) & " &2" '"&" перед знаком, означает, что этому знаку назначена горячая клавиша, ChrW(8595)- это стрелочка вниз
End With
 
With .Controls.Add(msoControlButton)
.OnAction = "Script_для_контекстных_меню.Цвет_таблицы_None"
.Caption = "Цвет таблицы None &3" '"&" перед знаком, означает, что этому знаку назначена горячая клавиша
End With
 
End With
'________________________________________________________________________________________________________________
With Application.CommandBars("Text") 'контекстное меню появляется в тексте
 
With .Controls.Add(msoControlButton)
.OnAction = "Script66"
.Caption = "УКмиаапирпаракРФ &1" '"&" перед знаком, означает, что этому знаку назначена горячая клавиша
End With
 
With .Controls.Add(msoControlButton)
.OnAction = "Script8"
.Caption = "УПварпиыриыК РФ &2" '"&" перед знаком, означает, что этому знаку назначена горячая клавиша
End With
 
With .Controls.Add(msoControlButton)
.OnAction = "Script545 "
.Caption = "Адитапиатитпарпвьтрпвтпввокаты &3" '"&" перед знаком, означает, что этому знаку назначена горячая клавиша
End With
 
With .Controls.Add(msoControlButton)
.OnAction = "Script33"
.Caption = "Автоипариыриипипоиск &4" '"&" перед знаком, означает, что этому знаку назначена горячая клавиша
End With
 
With .Controls.Add(msoControlButton)
.OnAction = "Script9"
.Caption = "ИБирарипиктиртиавитапиав регион &5" '"&" перед знаком, означает, что этому знаку назначена горячая клавиша
End With
 
With .Controls.Add(msoControlButton)
.OnAction = "Script0 "
.Caption = "Автомототранспорт &6" '"&" перед знаком, означает, что этому знаку назначена горячая клавиша
End With
 
With .Controls.Add(msoControlButton)
.OnAction = "Script1"
.Caption = "Сттаикреноеноеноьнеоьнкмость &7" '"&" перед знаком, означает, что этому знаку назначена горячая клавиша
End With
 
With .Controls.Add(msoControlButton)
.OnAction = "Script2"
.Caption = "Лтртьртпьицо &8" '"&" перед знаком, означает, что этому знаку назначена горячая клавиша
End With
 
End With
'________________________________________________________________________________________________________________
 
With Application.CommandBars("Fields") 'контекстное меню появляется при наведении на поле
 
With .Controls.Add(msoControlButton)
.OnAction = "Script3"
.Caption = "Действрпьпьпаьрие с полем &1" '"&" перед знаком, означает, что этому знаку назначена горячая клавиша
End With
 
End With
 
End Sub
 
Sub УдалениеМеню()
 
Dim УдаляемыйПункт As CommandBarControl
Dim Меню As CommandBar
For Each Меню In Application.CommandBars ' для каждого меню
For Each УдаляемыйПункт In Меню.Controls ' каждый элемент меню
If УдаляемыйПункт.BuiltIn = False Then УдаляемыйПункт.Delete
Next УдаляемыйПункт
Next Меню
 
End Sub