核心结论 #

为单个Ribbon使用多个模块不是错误，你的问题源于Ribbon引用保存不当、回调函数参数不匹配，以及控件ID拼写错误。

问题1：IRibbonUI引用丢失，无法重复失效控件 #

错误原因 #

1. OnLoad函数定义不完整：你的OnLoad函数缺少Sub关键字，导致Ribbon加载时无法正确将引用赋值给全局变量myRibbon。
2. 控件ID拼写错误：你在RefreshSelectionList中调用myRibbon.InvalidateControl "PatternChoose"，但XML里下拉菜单的ID是SelChoose，这会导致后续失效操作找不到目标控件。
3. 全局变量易被重置：VBA中的模块级全局变量在代码编辑、运行错误时会被重置为Nothing，这是引用丢失的常见诱因。

修复步骤 #

1. 修正OnLoad函数定义：
   在RibbonControl模块中补全关键字，确保引用正确赋值：

   Option Explicit
   Public myRibbon As IRibbonUI
   Public selectionList(50) As String
   Public selectionListCount As Integer
   Public selectionActiveId As Integer
   
   Sub OnLoad(ribbon As IRibbonUI)
     Set myRibbon = ribbon
     Logic.OnLoad
   End Sub
   

2. 修正控件ID匹配问题：
   将RefreshSelectionList中的失效控件ID改为XML中定义的SelChoose：

   Sub RefreshSelectionList(ByVal control As IRibbonControl)
       ' 正则表达式查找文档关键词的代码（省略）
       
       If Not myRibbon Is Nothing Then
           myRibbon.InvalidateControl "SelChoose" ' 修正ID为SelChoose
       End If
   End Sub
   

3. 添加引用丢失的兜底处理：
   在Logic模块同步存储Ribbon引用，避免单一全局变量被重置：

   ' 在Logic模块中添加全局变量
   Public g_Ribbon As IRibbonUI
   
   ' 修改RibbonControl的OnLoad函数
   Sub OnLoad(ribbon As IRibbonUI)
     Set myRibbon = ribbon
     Set Logic.g_Ribbon = ribbon ' 同步保存到Logic模块
     Logic.OnLoad
   End Sub
   
   ' 在RefreshSelectionList中添加兜底
   Sub RefreshSelectionList(ByVal control As IRibbonControl)
       ' 正则表达式查找文档关键词的代码（省略）
       
       Dim ribbonRef As IRibbonUI
       If Not myRibbon Is Nothing Then
           Set ribbonRef = myRibbon
       ElseIf Not Logic.g_Ribbon Is Nothing Then
           Set ribbonRef = Logic.g_Ribbon
       End If
       
       If Not ribbonRef Is Nothing Then
           ribbonRef.InvalidateControl "SelChoose"
       End If
   End Sub
   

问题2：点击Refresh按钮弹出“Argument not optional”提示 #

错误原因 #

你的GetSelectionItemIndex回调函数参数签名不符合Ribbon XML要求：getSelectedItemIndex的标准签名是Sub 函数名(ByVal control As IRibbonControl, ByRef selectedIndex As Integer)，但你额外添加了selectedID As String参数，导致Office调用时参数不匹配。

修复步骤 #

修正参数签名，移除多余的selectedID参数：

Sub GetSelectionItemIndex(ByVal control As IRibbonControl, ByRef selectedIndex As Integer)
    Select Case control.ID
    Case Is = "SelChoose" ' 同步修正ID为XML中的SelChoose
        selectedIndex = 0
    Case Else
        ' Do nothing
    End Select
End Sub

额外建议 #

• 避免依赖单一全局变量存储Ribbon引用，可将引用封装到类模块中，降低被重置的风险。
• 所有Ribbon回调函数的参数签名必须严格匹配Office要求，确保回调能被正确调用。

内容的提问来源于stack exchange，提问作者Oscar Danielsson