急急！急！关于数组保存到variable中的问题

Question

如何在variable中保存一个数组
比如：dim a(2000) as byte
...
...
a数组中各个元素都已经复制
如何利用
Selection.variables.add name:="",value :=""
的形式把数组保存到一个variable中，

Answer 1

dim i as long
for i = lbound(a) to ubound(a)
    selection.variables.add name:=cstr(i),value:=cstr(a(i))
next i

Answer 2

保存到一个variable中，你这样不是保存到2000个variables中了吗

Answer 3

Private Sub Command1_Click()
Dim varA As Variant
Dim arraryA(10) As String
 
For i = 1 To 10
arraryA(i) = "string" + Chr(64 + i)
Next i
varA = arraryA
For i = 1 To 10
Debug.Print varA(i)
Next i
End Sub

Answer 4

to  feng8321200()
这里的variables是一个集合对象，不是一个简单的变量。
你可以用variables.Item(index)来访问每一个元素。

Answer 5

TO 楼上
i see,
我把一个BYTE(100*1024)放到文件里也是按你给的这种方法以隐藏的信息放到文档里面，结果WORD文档有1500*1024那么大!!!!!!

Answer 6

那你就直接这样
dim strData as string
strData = a'这里a为byte型数组
selection.variables.add name:="myData",value:=strdata