具有文档名称的VBA数组填充

Question

我正在尝试将文档名称添加到数组中，并测试数组是否填充了 MsgBox 。使用以下脚本无法回显结果。

Sub Test()
    Dim DocName(1) As String
    Dim i As Integer
    Documents.Open ("C:\VBA\lorem.docx")
    Documents.Open ("C:\VBA\ipsu.docx")
    For i = 0 To 1
        DocName(i) = Documents(i + 1).Name
    Next
    End
    MsgBox DocName(0)
End Sub

我打败了，为什么这不起作用？