Добавление вставки вертикального А4

RibbonCallbacks.bas

@@ -11,16 +11,16 @@ End Sub
 'PicFormatter (элемент: button, атрибут: onAction), 2010+
 Private Sub PicFormatter(control As IRibbonControl)
     'MsgBox "Сработала процедура, заданная в onAction элемента " & control.ID
-
+    
     Call ML_PicFormatter
-
+    
 End Sub
 
 'AddListA4 (элемент: button, атрибут: onAction), 2010+
 Private Sub AddListA3(control As IRibbonControl)
     'MsgBox "Сработала процедура, заданная в onAction элемента " & control.ID
     
-    Call ML_AddListA4
+    Call ML_AddListA3
     
 End Sub
 
@@ -28,7 +28,15 @@ End Sub
 Private Sub AddListA4(control As IRibbonControl)
     'MsgBox "Сработала процедура, заданная в onAction элемента " & control.ID
     
-    Call ML_AddListA3
+    Call ML_AddListA4
+    
+End Sub
+
+'AddListA4vert элемент button, атрибут onAction), 2010+
+Private Sub AddListA4vert(control As IRibbonControl)
+    'MsgBox "Сработала процедура, заданная в onAction элемента" & control.ID
+    
+    Call ML_AddListA4vert
     
 End Sub
 
@@ -71,4 +79,15 @@ End Sub
 Private Sub TestMacros(control As IRibbonControl)
     'MsgBox "Сработала процедура, заданная в onAction элемента " & control.ID
     Call ML_TestMacros
-End Sub
+End Sub
+
+'btnInstallAddin (элемент: button, атрибут: onAction), 2010+
+Private Sub InstallAddin(control As IRibbonControl)
+    MsgBox "Сработала процедура, заданная в onAction элемента " & control.ID
+End Sub
+
+'btnInstallStyle (элемент: button, атрибут: onAction), 2010+
+Private Sub InstallTextStyle(control As IRibbonControl)
+    'MsgBox "Сработала процедура, заданная в onAction элемента " & control.ID
+    Call ML_AddStyle
+End Sub