如何在 RibbonX 中将 1000 多个项目添加到 ComboBox？

问：

我在 Word 中制作了一个自定义功能区，它有一个 ComboBox。我想使用 VBA 宏用项目填充该 ComboBox。问题是似乎 ComboBox 只能容纳 1000 个项目。当我尝试放置超过 1000 个项目时，我只看到一个空的 ComboBox。

我怎样才能克服这个问题？

（我知道这可以通过用户表单来克服，但从功能区工作会更好。

这是我的 xml 代码：

<customUI 
    xmlns="http://schemas.microsoft.com/office/2006/01/customui"
    onLoad="Ribbon_Load">
    <ribbon >
        <tabs >
            <tab 
                id="Tab1"
                label="CustomTab">
                <group id="Group1" 
                label="CustomGroup" >
                    <comboBox
                        id="comboBox1"
                        label="Elements:"
                        sizeString="WWWWWWWWWWWWWWWWWWWWWWWW"
                        getItemID="getElementID"
                        getItemLabel="getElementLabel"
                        getItemCount="getElementCount"/>
                    
                </group>
                
            </tab >
        </tabs >
    </ribbon >
</customUI >

和我在 VBA 中的代码：

Dim myRibbon As IRibbonUI

Sub Ribbon_Load(ribbon As IRibbonUI)
    Set myRibbon = ribbon
    ribbon.ActivateTab "Tab1"
        
End Sub
Sub getElementID(control As IRibbonControl, index As Integer, ByRef id)

    id = "ID" & index
    
End Sub

Sub getElementLabel(control As IRibbonControl, index As Integer, ByRef label)

    label = "Element " & index
    
End Sub
Sub getElementCount(control As IRibbonControl, ByRef returnedVal)
    returnedVal = 1000
    
End Sub

如果返回的 Val 值为 1001 或更大，则 ComboBox 为空。