如何批量从多个WORD文档中提取信息到EXCEL表

ynwjh

【急】如何批量从多个WORD文档中提取信息到EXCEL表

手头有7000多个格式相同的表格，表名是文本框内文字，表格上方第1行是姓名和单位信息，需要批量提取此2项信息和表格内多项信息到EXCEL表，怎样编写宏代码。

duquancai

循环遍历每个word文档 读取需要的数据  储存于数组  把数组赋给Excel相应的单元格。

小花鹿

给你一段代码，自己修改一下：
Sub test()
Dim myword, thispath, mydoc, s, s1, tm, r&
Set myword = CreateObject("word.application")
myword.Visible = True
thispath = ThisWorkbook.Path & "\"
mydoc = Dir(thispath & "*.doc")
Do While mydoc <> ""
    r = r + 1
    With myword
        .documents.Open thispath & mydoc
        .Selection.Find.MatchWildcards = True
         s = "": s1 = ""
        If .Selection.Find.Execute(s & "*" & s1) Then
            tm = .Selection.Text
            tm = Replace(Replace(Replace(tm, s, ""), " ", ""), Chr(13), "")
            Cells(r + 2, 1) = tm: tm = ""
            .Selection.MoveRight Unit:=1, Count:=1
        End If        
        .documents.Close False
    End With
    mydoc = Dir
Loop
myword.Quit
End Sub

duquancai

打开 附件  点击按钮》》》》》》

ynwjh

duquancai 发表于 2016-12-14 23:28
打开 附件  点击按钮》》》》》》

只是显示了各样信息，无法提取到EXCEL文件，谢谢费心！

ynwjh

小花鹿 发表于 2016-12-14 22:13
给你一段代码，自己修改一下：
Sub test()
Dim myword, thispath, mydoc, s, s1, tm, r&

有哪些地方能修改呢？　哪个地方调用了表格上一行的文字？　菜鸟不明白，请详细指教！

duquancai

ynwjh 发表于 2016-12-15 08:39
只是显示了各样信息，无法提取到EXCEL文件，谢谢费心！

什么都写的规规矩矩，丝毫不漏的绝对按照你的需求把代码工工整整的写完毕。那请问 你干什么啊？呵呵！

多学学总是好的

duquancai 发表于 2016-12-15 10:28
什么都写的规规矩矩，丝毫不漏的绝对按照你的需求把代码工工整整的写完毕。那请问 你干什么啊？呵呵！

。。。你这太刻薄了，他也没说什么

gbgbxgb

多学学总是好的 发表于 2020-7-17 10:57
。。。你这太刻薄了，他也没说什么

你真无知。从楼主的回复内容看，其明显是个伸手党。若仅是伸手党，不动声色地来句诸如“感谢帮助”之类的话也罢了，竟然回复说“代码只是怎样怎样……”，表现出一脸不屑，不得不让人反感（即便有四个字“谢谢费心”也难逃让人生厌的境地）。