Option Explicit 'Потребовать явного объявления всех переменных в файле

'TableFormatter (элемент: button, атрибут: onAction), 2010+
Private Sub TableFormatter(control As IRibbonControl)
    MsgBox "Сработала процедура, заданная в onAction элемента " & control.ID
End Sub

'PicFormatter (элемент: button, атрибут: onAction), 2010+
Private Sub PicFormatter(control As IRibbonControl)
    MsgBox "Сработала процедура, заданная в onAction элемента " & control.ID
End Sub

'AddListA4 (элемент: button, атрибут: onAction), 2010+
Private Sub AddListA3(control As IRibbonControl)
    'MsgBox "Сработала процедура, заданная в onAction элемента " & control.ID
    
    Call ML_AddListA4
    
End Sub

'AddListA3 (элемент: button, атрибут: onAction), 2010+
Private Sub AddListA4(control As IRibbonControl)
    'MsgBox "Сработала процедура, заданная в onAction элемента " & control.ID
    
    Call ML_AddListA3
       
    
End Sub

'StampForm5 (элемент: button, атрибут: onAction), 2010+
Private Sub AddStampForm5(control As IRibbonControl)
    MsgBox "Сработала процедура, заданная в onAction элемента " & control.ID
End Sub

'StampForm6 (элемент: button, атрибут: onAction), 2010+
Private Sub AddStampForm6(control As IRibbonControl)
    MsgBox "Сработала процедура, заданная в onAction элемента " & control.ID
End Sub

'StampFrame (элемент: button, атрибут: onAction), 2010+
Private Sub AddFrame(control As IRibbonControl)
    MsgBox "Сработала процедура, заданная в onAction элемента " & control.ID
End Sub

'StampLeftUp (элемент: button, атрибут: onAction), 2010+
Private Sub AddStampLeftUp(control As IRibbonControl)
    MsgBox "Сработала процедура, заданная в onAction элемента " & control.ID
End Sub

'StampLeftDown (элемент: button, атрибут: onAction), 2010+
Private Sub AddStampLeftDown(control As IRibbonControl)
    MsgBox "Сработала процедура, заданная в onAction элемента " & control.ID
End Sub

'StampLeftMiddle (элемент: button, атрибут: onAction), 2010+
Private Sub AddStampLefMid(control As IRibbonControl)
    MsgBox "Сработала процедура, заданная в onAction элемента " & control.ID
End Sub

'StampPageNumber (элемент: button, атрибут: onAction), 2010+
Private Sub AddPageNumber(control As IRibbonControl)
    MsgBox "Сработала процедура, заданная в onAction элемента " & control.ID
End Sub