从WORD表格里提取内容至Excel表里

MáοMáο゛趙

各位大神：能否帮忙写一个VBA从word里提取内容至Excel里（一个word里有很多个职务说明书表），希望全部按照Excel里的表头提取相应的内容如图：

变成

lizhipei78

https://club.excelhome.net/thread-1679604-1-1.html

wang-way

https://mp.weixin.qq.com/s?__biz ... =21#wechat_redirect

renkangjizhen

Sub excel汇总word文档信息()
Dim myapp, mydoc, mytab, i%, m%, n%, arr(1 To 1000, 1 To 7), mypath$, myname$
Set myapp = CreateObject("word.application")
mypath = ThisWorkbook.Path & "\内容.docx"
Set mydoc = myapp.documents.Open(mypath)
Set mytab = mydoc.tables

For i = 1 To mytab.Count
With mytab(i)
arr(i, 1) = .cell(2, 2).Range.Text: arr(i, 2) = .cell(3, , 2).Range.Text: arr(i, 3) = .cell(4, 2).Range.Text
arr(i, 4) = .cell(5, 2).Range.Text: arr(i, 5) = .cell(6, 2).Range.Text: arr(i, 6) = .cell(7, 2).Range.Text
arr(i, 7) = .cell(2, 4).Range.Text
End With
Next
mydoc.Close 0
myapp.Quit
[a2].Resize(1000, 7) = arr

End Sub

renkangjizhen

看看能否满足要求

闻启学

renkangjizhen 发表于 2024-9-3 17:12
Sub excel汇总word文档信息()
Dim myapp, mydoc, mytab, i%, m%, n%, arr(1 To 1000, 1 To 7), mypath$, m ...

楼上 这个肯定是批量的   文件名称不能指定

用fso  或者dir 查找目录的文件-

songshihai

先把表头做好,需要提取哪些字段?还有,word里表格的格式是不是都是一样的?

MáοMáο゛趙

songshihai 发表于 2024-9-4 11:58
先把表头做好,需要提取哪些字段?还有,word里表格的格式是不是都是一样的?

格式是一样的，就是在具体职责那里有些行多，有些行少，表头已经更新，麻烦大神帮忙看下

MáοMáο゛趙

renkangjizhen 发表于 2024-9-3 17:12
Sub excel汇总word文档信息()
Dim myapp, mydoc, mytab, i%, m%, n%, arr(1 To 1000, 1 To 7), mypath$, m ...

是一个文档里有多个表格，每个表格基本上是一致的，除了具体职责那里的数据有多有少职务，其他都一样，需要把WORD里所有表格提取至EXCEL里

MáοMáο゛趙

闻启学 发表于 2024-9-3 21:52
楼上 这个肯定是批量的   文件名称不能指定

用fso  或者dir 查找目录的文件-

大神给看看呗，几百个，一个一个占得搞死