如何在Word 2007宏中将数组存储为ActiveDocument.Variables？

嘿，我刚好踩过这个坑！Word 2007的ActiveDocument.Variables确实没法直接存储数组——它只支持单个文本或数值类型的数据。不过咱们可以通过序列化数组为字符串的方式绕开这个限制，下面给你两种实用的实现方案，亲测有效：

这是最常用的方案，适合一维的字符串或数值数组，核心是用Join()把数组转成带特殊分隔符的字符串，读取时再用Split()转回去。

存储数组的代码 #

Sub SaveArrayToDocumentVariables()
    ' 示例：定义一个字符串数组
    Dim fruitArray() As String
    fruitArray = Split("苹果,香蕉,橙子,葡萄", ",")
    
    ' 选一个数组元素里不会出现的分隔符，这里用"|||"，也可以用Chr(255)（非打印字符，冲突概率极低）
    Dim serializedStr As String
    serializedStr = Join(fruitArray, "|||")
    
    ' 存入Variables：变量已存在则更新，不存在则新增
    On Error Resume Next
    ActiveDocument.Variables("MyFruitList").Value = serializedStr
    If Err.Number <> 0 Then
        ActiveDocument.Variables.Add Name:="MyFruitList", Value:=serializedStr
    End If
    On Error GoTo 0
End Sub

读取数组的代码 #

Sub LoadArrayFromDocumentVariables()
    Dim serializedStr As String
    Dim loadedArray() As String
    
    ' 读取存储的字符串，捕获变量不存在的情况
    On Error Resume Next
    serializedStr = ActiveDocument.Variables("MyFruitList").Value
    If Err.Number <> 0 Then
        MsgBox "未找到存储的数组变量！"
        Exit Sub
    End If
    On Error GoTo 0
    
    ' 把字符串转回数组
    loadedArray = Split(serializedStr, "|||")
    
    ' 测试输出数组元素
    Dim i As Integer
    For i = LBound(loadedArray) To UBound(loadedArray)
        MsgBox "数组元素" & i + 1 & ": " & loadedArray(i)
    Next i
End Sub

如果是数值数组，只需要多一步类型转换：

' 存储数值数组
Sub SaveNumericArray()
    Dim numArray() As Integer
    numArray = Array(10, 20, 30, 40)
    
    ' 先把数值转成字符串数组再Join
    Dim strArray() As String
    ReDim strArray(LBound(numArray) To UBound(numArray))
    For i = LBound(numArray) To UBound(numArray)
        strArray(i) = CStr(numArray(i))
    Next i
    
    Dim serializedStr As String
    serializedStr = Join(strArray, "|||")
    
    ' 存入Variables
    On Error Resume Next
    ActiveDocument.Variables("MyNumericData").Value = serializedStr
    If Err.Number <> 0 Then
        ActiveDocument.Variables.Add Name:="MyNumericData", Value:=serializedStr
    End If
    On Error GoTo 0
End Sub

' 读取数值数组
Sub LoadNumericArray()
    Dim serializedStr As String
    Dim strArray() As String
    Dim numArray() As Integer
    
    On Error Resume Next
    serializedStr = ActiveDocument.Variables("MyNumericData").Value
    If Err.Number <> 0 Then
        MsgBox "未找到数值数组变量！"
        Exit Sub
    End If
    On Error GoTo 0
    
    strArray = Split(serializedStr, "|||")
    ReDim numArray(LBound(strArray) To UBound(strArray))
    
    ' 把字符串转回数值
    For i = LBound(strArray) To UBound(strArray)
        numArray(i) = CInt(strArray(i))
    Next i
    
    ' 测试输出
    For i = LBound(numArray) To UBound(numArray)
        MsgBox "数值元素" & i + 1 & ": " & numArray(i)
    Next i
End Sub

如果是多维数组或自定义对象数组，可以把数组序列化为XML字符串存储，读取时再解析XML。比如二维数组：

' 存储二维数组为XML字符串
Sub Save2DArrayAsXML()
    Dim twoDArray(1 To 2, 1 To 2) As String
    twoDArray(1, 1) = "姓名": twoDArray(1, 2) = "年龄"
    twoDArray(2, 1) = "张三": twoDArray(2, 2) = "25"
    
    ' 构建XML字符串
    Dim xmlStr As String
    xmlStr = "<Array>"
    For i = LBound(twoDArray, 1) To UBound(twoDArray, 1)
        xmlStr = xmlStr & "<Row>"
        For j = LBound(twoDArray, 2) To UBound(twoDArray, 2)
            xmlStr = xmlStr & "<Col>" & twoDArray(i, j) & "</Col>"
        Next j
        xmlStr = xmlStr & "</Row>"
    Next i
    xmlStr = xmlStr & "</Array>"
    
    ' 存入Variables
    On Error Resume Next
    ActiveDocument.Variables("My2DArray").Value = xmlStr
    If Err.Number <> 0 Then
        ActiveDocument.Variables.Add Name:="My2DArray", Value:=xmlStr
    End If
    On Error GoTo 0
End Sub

读取时可以用VBA的DOM对象解析XML，把内容转回二维数组，这个方案适合结构复杂的数据。

关键注意事项 #

• 分隔符一定要选数组元素中绝对不会出现的字符，比如Chr(255)（非打印的空字符），能最大程度避免冲突。
• 必须用On Error Resume Next捕获变量不存在的情况，防止宏运行时崩溃。
• 数值数组读取后记得转成对应的数据类型（CInt/CDbl等），否则会是字符串类型。

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