请问如何将多个word表格里的内容批量提取到一张excel表...-word提取表格,解析word文档提取表格

把多个word表格文件转换到一个excel文件里:
　　1、首先在Word文档中百选择“文件→另度存为”，在文件类型中选择“*.htm”；
　　2、打开Excel，选择“数据知→导入外部数据→导入数据”，在”选择数据源”对话框道中选择刚刚保存的HTM文件；
　　3、单击“打开”。在“新建Web查询”窗口中点击你要导入的表格回数据前面的黄色“箭头”标记；
　　4、最后选择“导入”，并选择“数据的放置位置”即可。答

Sub 自动把word表格转换到Excel()
On Error Resume Next ''''''出错继续（7a686964616fe58685e5aeb9334应对不规范的表格）

''''''重命名所有WORD文件为大写“A”。如 A (1).docx。

''maxcolumn(xex)
Dim maxrowend2
Dim wdApp
For w3 = 1 To 2 想合并多少个文档？
maxrowend2 = Sheets("sheet1").[a65536].End(xlUp).Row

Set wdApp = CreateObject("word.application")
path_ = ThisWorkbook.Path
wdApp.Documents.Open (path_ & "\" & "A (" & w3 & ")" & ".docx")
wdApp.Visible = True
n = wdApp.ActiveDocument.Tables.Count ''''有多少个表格
'x = 0
x = maxrowend2 + 1 ''''初始行号
y = 0
For i = 1 To n
rs = wdApp.ActiveDocument.Tables(i).Rows.Count ''''有多少个行
cs = wdApp.ActiveDocument.Tables(i).Columns.Count ''''有多少个列

''''''ghg = MsgBox(rs & "行列" & cs) '''''''''''''''''''''''''''''''提示

For m = 1 To rs

x = x + 1
y = 1
ThisWorkbook.Sheets("Sheet1").Cells(x, 1) = "源自A (" & w3 & ")" & ".docx" & "； 第" & i & " 表 " ''''''''''9999999999999999999
For n = 1 To cs

vv = wdApp.ActiveDocument.Tables(i).Cell(m, n)
ThisWorkbook.Sheets("Sheet1").Cells(x, y + 1) = Mid(vv, 1, Len(vv) - 1) '''空第一列
y = y + 1
Next
Next
Next
wdApp.Application.Quit '关闭word文档
Set wdApp = Nothing '释放对象变量的内存
Next

End Sub
把数据先转换成EXCE表格，然后用公式找寻所需要的数据多好！

这个可以有；
如果不多的话可以通过百将Word另存为html格式，然后用excel打开就可以在excel处理了。度
excel里面的处理方法就很多；
如果你的文件多少20+以上；
可以用VBA来解决，这内个嘛，填下没有免费的开发，需要付费完成；
代码我有，需要针对你的表容格特殊定制修改；
如果需要进一步请私信我