<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui" onLoad="OnRibbonLoad" loadImage="LoadImages">
	<ribbon startFromScratch="false">
		<tabs>
			<tab id="iMacro" label="Мои функции">
				<group id="iGroup" label="Link">
					<box id="iBox" boxStyle="horizontal">
						<button id="btn_1" size="large" imageMso="AdvancedFileProperties" getLabel="iLabel" getScreentip="iScreentip" getSupertip="iSupertip" onAction="OnActionButton" />
						<button id="btn_2" size="large" imageMso="ReadingViewShowOriginalOrFinalDocument" getLabel="iLabel" getScreentip="iScreentip" getSupertip="iSupertip" onAction="OnActionButton" />
					</box>
				</group>
			</tab>
		</tabs>
	</ribbon>
</customUI>

Option Explicit
'Option Private Module

Public gobjRibbon As IRibbonUI
Public bolEnabled As Boolean
Public bolVisible As Boolean


Public Sub OnRibbonLoad(ribbon As IRibbonUI)
    Set gobjRibbon = ribbon
End Sub


Sub OnActionButton(control As IRibbonControl)
    Select Case control.id
        Case "btn_1": MsgBox "Макрос 1"
        Case "btn_2": MsgBox "Макрос 2"
    End Select
End Sub


Sub iLabel(control As IRibbonControl, ByRef label)
    Select Case control.id
        Case "btn_1": label = "Кнопка 1"
        Case "btn_2": label = "Кнопка 1"
    End Select
End Sub


Sub iScreentip(control As IRibbonControl, ByRef screentip)
    Select Case control.id
        Case "btn_1": screentip = "Описание 1"
        Case "btn_2": screentip = "Описание 2"
    End Select
End Sub

Sub iSupertip(control As IRibbonControl, ByRef screentip)
    Select Case control.id
        Case "btn_1": screentip = "Подробное описание 1"
        Case "btn_2": screentip = "Подробное описание 2"
    End Select
End Sub


Public Sub GetEnabled(control As IRibbonControl, ByRef enabled)
    Select Case control.id
        'Case "ID_XMLRibbControl"
        '    enabled = bolEnabled
        Case Else
            enabled = True
    End Select
End Sub


Public Sub GetVisible(control As IRibbonControl, ByRef visible)
    Select Case control.id
        'Case "ID_XMLRibbControl"
        '    visible = bolVisible
        Case Else
            visible = True
    End Select
End Sub


Public Function getTheValue(strTag As String, strValue As String) As String
   On Error Resume Next
      
   Dim workTb()     As String
   Dim Ele()        As String
   Dim myVariabs()  As String
   Dim i            As Integer

      workTb = Split(strTag, ";")
      
      ReDim myVariabs(LBound(workTb) To UBound(workTb), 0 To 1)
      For i = LBound(workTb) To UBound(workTb)
         Ele = Split(workTb(i), ":=")
         myVariabs(i, 0) = Ele(0)
         If UBound(Ele) = 1 Then
            myVariabs(i, 1) = Ele(1)
         End If
      Next
      
      For i = LBound(myVariabs) To UBound(myVariabs)
         If strValue = myVariabs(i, 0) Then
            getTheValue = myVariabs(i, 1)
         End If
      Next
End Function