VB中的CrossReference问题 - MsWord

Question

我在Word脚本的VB脚本中遇到CrossReference问题。

如果我有超过12个字幕（表格，数字等），则脚本仅显示前12个。 就像我排序表格和数字标题一样，前4个将是表格的标题，然后接下来的8个将是数字标题，之后是4个表格标题。 但是当我尝试插入交叉引用时，自定义Word对话框仅显示前12个（4个表+ 8个数字）。

脚本在2016年，2013年以及2010年的办公室工作正常。但是我的客户遇到了这个问题。

他正在使用（Windows 7 with office 2010）。我确实用Windows 7和Office 2010创建了一个虚拟机，但它仍然可以正常工作。

谁知道如何解决这个问题？

更新

Dim aTypes(7, 3) As Variant
Dim lngItem As Long

On Error GoTo Error_Occured

aTypes(1, 0) = "Figure"
aTypes(2, 0) = "Table"

'Load document specific info into relevant arrays
DoEvents
FigureItems = ActiveDocument.GetCrossReferenceItems(WdCaptionLabelID.wdCaptionFigure): Stop
DoEvents
TableItems = ActiveDocument.GetCrossReferenceItems(WdCaptionLabelID.wdCaptionTable): Stop

有时当我逐步完成调试器时，代码工作正常，有时候它只给我0个表。