【word文档简历模板怎么拷贝】Excel成批提取Word简历，3个小时的工作，10秒完成。

不久前，Excel大量提取了Word简历的内容，并与大家分享。(莎士比亚、Excel、Excel、Excel、Excel、Excel)

知识点：

Dir函数与循环一起通过文件框架Word VBA中的Table表对象Word VBA中的Table表对象工作表Clean函数

让我们看一个具体的例子。

要提取的Word文件

Word特定内容格式(重要信息已处理)

想法：

循环浏览Word文档。因为简历格式是固定的，所以可以直接从word文档的第一个表中根据特定位置获取内容(即Table对象)。

将标题前两句Excel提取Word信息(1)“纯干货”与Excel提取Word表数据(2)“等待收集”相结合，可以轻松地编写以下代码。

子提取数据()

On Error Resume Next

N=1

set doc=createobject(' word . application ')

F=Dir '\*。doc ')

Do While f ' '

N=n 1

Set wd=doc.documen '\' f)

Doc。Visible=True

With doc.documents(1)。Tables(1)

Cells(n，1)=l(.cell(1、2)。Range)”名称

Cells(n，2)=l(.cell(2，2)。' Range)'出生日期

Cells(n，3)=l(.cell(4、2)。range)’最高学历

Cells(n，4)=l(.cell(5、4)。' Range)'毕业学校

Cells(n，5)=l(.cell(6、2)。Range)”头衔

Cells(n，6)=l(.cell(8、4)。Range)”邮箱

End With

F=Dir

Wd。Close False

循环(音乐)

Doc。Quit

MsgBox '完成！'

End Sub

Function l(a)

“L=Work(a)”将清除换行符。否则，将读取小黑点或小矩形

End Function

具体效果如下：

不进行邮件合并，大量提取简历就这么简单！