快崩溃了，如何从几千个相同的WORD文件中提取相应的文字和数值到EXCEL里。

loquat

楼主你的表格太不规范了。请测试看看

1. Sub 提取内容_MeThee()  '只生成Excel，不自动保存。
   
2. Application.ScreenUpdating = False
   
3. Dim aCount&, aTable As Table
   
4. Dim arr, brr, i&
   
5. With ThisDocument
   
6.     aCount = .Tables.Count
   
7.     ReDim arr(1 To aCount, 1 To 5)
   
8.     For i = 1 To aCount
   
9.         Set aTable = .Tables(i)
   
10.         brr = Split(aTable.Range.Text, Chr(7))
    
11.         If UBound(brr) = 108 Then
    
12.             j = j + 1
    
13.             arr(2 * j - 1, 1) = Left(brr(13), Len(brr(13)) - 1)
    
14.             arr(2 * j - 1, 2) = Left(brr(39), Len(brr(39)) - 1)
    
15.             arr(2 * j - 1, 3) = Left(brr(8), Len(brr(8)) - 1)
    
16.             arr(2 * j - 1, 4) = Left(brr(44), Len(brr(44)) - 1)
    
17.             arr(2 * j - 1, 5) = Left(brr(49), Len(brr(49)) - 1)
    
18.             arr(2 * j, 1) = Left(brr(66), Len(brr(66)) - 1)
    
19.             arr(2 * j, 2) = Left(brr(92), Len(brr(92)) - 1)
    
20.             arr(2 * j, 3) = Left(brr(61), Len(brr(61)) - 1)
    
21.             arr(2 * j, 4) = Left(brr(97), Len(brr(97)) - 1)
    
22.             arr(2 * j, 5) = Left(brr(102), Len(brr(102)) - 1)
    
23.         End If
    
24.     Next
    
25. End With
    
26. Set aExcel = CreateObject("Excel.Application")
    
27. aExcel.Visible = True
    
28. Set aBook = aExcel.workbooks.Add
    
29. Set aSheet = aBook.worksheets("Sheet1")
    
30. aSheet.Range("A1").Resize(1, 5) = [{"姓名","身份证","电话","户籍地","居住地"}]
    
31. aSheet.Range("A2").Resize(aCount, 5) = arr
    
32. Application.ScreenUpdating = True
    
33. End Sub

复制代码

loquat

重复内容，编辑掉了。。。

loquat

还是重复内容，再次编辑掉。。。

loquat

好像有代码就需要审核？不好意思版主，麻烦你只审核任意一次即可。。。

loquat

上面都是重复的代码，里面的调试语句未去掉，可以删掉，不影响使用

mikezhu58

没有，现在只有用最原始的办法复制张贴。期望本坛的老师放出能解决问题的代码，以使我的这个工作完成。

1261181315a

mikezhu58 发表于 2015-3-9 12:28
没有，现在只有用最原始的办法复制张贴。期望本坛的老师放出能解决问题的代码，以使我的这个工作完成。

哦哦，谢谢哈

loquat

mikezhu58 发表于 2015-3-9 12:28
没有，现在只有用最原始的办法复制张贴。期望本坛的老师放出能解决问题的代码，以使我的这个工作完成。

代码我在上面已经给了，但是代码里面不知道有什么特殊字符，需要版主审核才能显示出来。。。
版主审核后应该是11楼

loquat

mikezhu58 发表于 2015-3-9 12:28
没有，现在只有用最原始的办法复制张贴。期望本坛的老师放出能解决问题的代码，以使我的这个工作完成。

代码我在上面已经给了，但是代码里面不知道有什么特殊字符，需要版主审核才能显示出来。。。
版主审核后应该是11楼

mikezhu58

谢谢老师的工作。但我这里没有审核啊，怎样审核呢？