宏数组参数中的嵌套维度

Question

我正在为 Word 中的宏提供多维数组。每个元素都是一个数组，每个数组元素有 2 个值，一个图像的名称和一个简短的描述。宏是：

For i = LBound(figures, 1) To UBound(figures, 1)
    cgmImage = "C:\path\to\images\" & figures(i, 0) & ".jpeg"
    Selection.InlineShapes.AddPicture FileName:=cgmImage, LinkToFile:=False, SaveWithDocument:=True
    Selection.TypeParagraph
    With Selection
        .Font.Size = 14
        .Font.Bold = True
        .Font.Underline = wdUnderlineSingle
        .TypeText Text:=figures(i, 1)
    End With
Next i

示例输入数组为：

[
    ['123','image 1'],
    ['456','image 2']
]

宏起作用，插入每个图像及其描述。但是我现在想添加第三个元素，这个元素本身就是一个代表表格的二维数组。所以输入看起来像这样：

[
    [ '123','image 1', [['val1','val2'],['val3','val4']] ],
    [ '456','image 2', [['val1','val2'],['val3','val4']] ]
]

在宏中，我将使用第三个元素来创建一个表格。但是，如果我将这样的输入数据提供给我的原始宏，我现在会在这一行得到一个“下标超出范围”错误：

cgmImage = "C:\path\to\images\" & figures(i, 0) & ".jpeg"

我想要迭代的是整个数据结构的第一级（例如，对于我上面提供的示例数据，2 次迭代）。即使我为LBound 和UBound 提供了“维度”属性，我仍然会收到错误消息，这不应该发生，因为顶级数组元素的第一个元素始终只是一个字符串（图像文件名）。我怎样才能做到这一点？并且访问代表表格的第三个元素是否会沿着 :figures(i,2,X,X) 的行？

编辑：

数组创建是在 Python 中，只是一个标准的列表类型。宏的调用是使用mhammond pywin32 module 完成的，这是该技术的简化版本：

import win32com.client as win32
word = win32.gencache.EnsureDispatch("Word.Application")
template = word.Documents.Open("\path\to\file.docm")
word.Run("macroName",imagesArray)

然后我保存并关闭它

Answer 1

如果最里面的数组是数组的数组，那么像figures(i)(j)(k)(l) 这样的方法应该是要走的路

您可以使用UBound(array,index) 和LBound(array,index) 函数来获取其index 维度的实际上下数组边界

例如，根据您显示的数据行，您可以考虑以下代码：

Option Explicit

Sub main()
    Dim figures(1) As Variant

    figures(0) = Array("123", "image 1", Array(Array("val1", "val2"), Array("val3", "val4"))) ' see how the innermost array is an array of arrays, too
    figures(1) = Array("456", "image 2", Array(Array("val5", "val6"), Array("val7", "val8"))) ' see how the innermost array is an array of arrays, too

    Dim i As Long, j As Long, k As Long, l As Long
    For i = LBound(figures) To UBound(figures)
        For j = LBound(figures(i)) To UBound(figures(i))
            If IsArray(figures(i)(j)) Then
                For k = LBound(figures(i)(j)) To UBound(figures(i)(j))
                    For l = LBound(figures(i)(j)(k)) To UBound(figures(i)(j)(k))
                        Debug.Print figures(i)(j)(k)(l)
                    Next
                Next
            Else
                Debug.Print figures(i)(j)
            End If
        Next
    Next
End Sub