求助！VBA提取word文档中表格指定数据

shaobugengshi

大神求助！
想要提取word文档中表格里的数据，提取的结果却是整个word文档的内容。word文件见附件。代码如下：

请帮忙看下是什么问题

1. Sub test()
   
2. 
   
3.     Dim doc As Object
   
4.     Dim path As String, file As String
   
5.     Dim s As Integer
   
6.     Dim arr(1 To 3000, 1 To 13) As String
   
7.    
   
8.     Application.ScreenUpdating = False
   
9.    
   
10.     Range("a2:i30000").ClearContents
    
11.    
    
12.     path = ThisWorkbook.path & ""
    
13.     file = Dir(path & "*.doc")
    
14.    
    
15.     Sheet2.Cells(1, 2) = file
    
16.     Sheet2.Cells(1, 3) = (Len(f) > 0)
    
17.    
    
18.     Do While Len(file) > 0
    
19.         Set doc = GetObject(path & file)
    
20.             Sheet2.Cells(1, 3) = path
    
21.         With doc.Tables(1)
    
22.    
    
23.             Sheet2.Cells(1, 4) = "11111"
    
24.             arr(1, 1) = zh(.cell(1, 1).Range.Text)
    
25.             doc.Close False
    
26.         End With
    
27.         file = Dir()
    
28.     Loop
    
29.     Range("C2").Resize(1, 1) = arr
    
30. End Sub
    
31. 
    
32. Function zh(str As String) As String   '去除字符
    
33.     zh = Replace(str, Chr$(13) & Chr$(7), "")
    
34. 
    
35. End Function

复制代码

yjjc0

你这个附件word文档里的内容全部由表格组成，因此提取的结果是整个word文档的内容。是这个原因吗？