循环抽取目录下word文档的方法

mochacha

写了个抽取word文档目录的方法，主要想问两个问题：
第一个这个方法里运行后会提示“错误5-无效的过程调用与参数”，求解惑
第二个问题是求动态数组的长度调整的方法，谢谢
“Private Sub 查找_Click()
Dim filename(0 To 100) As String
Dim n ，c As Integer
n = 0
c = Dir(ThisDocument.Path & "\" & "*.doc*")
If c <> "" Then
  filename(n) = c
Do Until c = ""
   n = n + 1
   filename(n) = Dir
MsgBox ("文件名=" & filename(n))
Loop
End If
  MsgBox ("目录下有" & n & "个DOC文件")
End Sub
”