将永恒君的百宝箱设为星标 精品文章第一时间读
今天的这个实例来自公号的一位粉丝，如下图：
这里有若干份同样表格，但是不同内容的word文档。需求是：将所有的word里面表格的内容全部汇总到一个excel表格当中，如下图：
没错，word里面同样也是可以用vba代码的。
思路也是很简单：遍历读取每个word文档，提取指定的表格内容到excel表中即可，源代码如下，大部分网上都有现成的，永恒君做了一些修改而言。
Sub 提取word表格()
    
    mypath = ThisWorkbook.Path & "\"
    myname = Dir(mypath & "*.docx")
    m = 1
        Do While myname <> ""
        Set mydoc = GetObject(mypath & myname)
        With mydoc
            m = m + 1
            With .Tables(1)
                Cells(m, 1) = m - 1          '序号
                Range("A1:F1") = Array("序号", "姓名", "性别", "身份证号", "住址", "联系方式")
                Cells(m, 2) = Replace(.cell(1, 2).Range.Text, "", "")
                Cells(m, 3) = Replace(.cell(2, 2).Range.Text, "", "")
                Cells(m, 4) = Replace(.cell(3, 2).Range.Text, "", "")
                Cells(m, 5) = Replace(.cell(4, 2).Range.Text, "", "")
                Cells(m, 6) = Replace(.cell(5, 2).Range.Text, "", "")
            End With
            .Close False
        End With
        myname = Dir()
        Loop
        Set mydoc = Nothing
        MsgBox "提取完成"

End Sub
看一下效果：
是不是很神奇？
如果你在操作过程中有疑问，欢迎来交流。源文件准备好，需要的话再后台回复「word表格」即可。
相关阅读：
Excel VBA 实例(22) - 一键筛选其他工作表或工作簿的数据
Excel vba 实例(21) - 如何快速准确录入数据
Excel vba 实例(20) - 一键填充每月员工拜访地区
欢迎加入我的知识星球，为您提供更多VBA、python等效率提升服务和资源！
微信公众号：永恒君的百宝箱个人博客：www.yhjbox.com

	

之前介绍过用vba批量提取word中表格的内容，今天来介绍一个提取word文字的实例，如下图：
这里有n个word文档，每个的结构基本一致，只有一些信息不一样。需要提取图中红框的内容。
思路和代码结构和之前提取word表格的差不多，核心代码如下图
关于文字的提取，因为表格结构基本一致，可以用到word中Paragraphs的这个对象，即文档中的整行。
Set WordD = .Documents.Open(filename)'打开文档
contents = WordD.Paragraphs(3).Range.Text '提取第三行，根据实际情况进行修改
效果：
可以对提取的信息进一步处理，把只在客户栏中保留客户的姓名，其余的不要。只需要将原句修改为：
contents =Split(WordD.Paragraphs(3).Range.Text，"：")(1)
效果：
以上就是关于这个实例的演示。
这个方法简单方便使用，适合于所有word文档都用同一个模板的时候。如果结构都不一样的话，就需要使用其他的诸如正则、查找等方式来进行操作。
感兴趣的可以在公号内回复「提取文字」自取试用，尽快吧。
如果觉得实用，分享给更多的朋友吧~~~
相关阅读：
Excel VBA 实例(25) - 班级随机点名并播放Excel VBA 实例(24) - 新股(债)中签一键批量查询Excel VBA 实例(23) - 一键批量提取word表格内容Excel VBA 实例(22) - 一键筛选其他工作表或工作簿的数据
欢迎交流！
微信公众号：永恒君的百宝箱个人博客：www.yhjbox.com
点个在看支持下永恒君吧！

该VBA脚本可以实现从word文档的多个表中提取数据，每个表格的信息提取到一行。
Sub word2els()

Set wdApp = CreateObject(“kwps.application”)

path_ = ThisWorkbook.Path

wdApp.Documents.Open (path_ & “” & “bbb.doc”)

wdApp.Visible = True

ThisWorkbook.Sheets(“sheet1”).Cells(1, 1) = “序号”       ‘’’ 设置sheet1的第一行第一列单元格内容为“序号”

ThisWorkbook.Sheets(“sheet1”).Cells(1, 2) = “用例标识”   ‘’’ 设置sheet1的第一行第一列单元格内容为“用例标识”

ThisWorkbook.Sheets(“sheet1”).Cells(1, 3) = “测试类型”   ‘’’ 设置sheet1的第一行第一列单元格内容为“测试类型”
n = wdApp.ActiveDocument.Tables.Count ‘’’'有多少个表格

excel_line_no = 2

For i = 1 To n

zhs = wdApp.ActiveDocument.Tables(i).cell(2, 2)        ‘’'提取第i个表格的第二行第三列单元格的内容保存到变量zhs中

Version = wdApp.ActiveDocument.Tables(i).cell(3, 5)    ‘’'提取第i个表格的第三行第五列单元格的内容保存到变量Version中

env = wdApp.ActiveDocument.Tables(i).cell(3, 7)        ‘’'提取第i个表格的第三行第七列单元格的内容保存到变量env中

ThisWorkbook.Sheets(“Sheet1”).Cells(excel_line_no, 1) = zhs      ‘’'将变量zhs的值写入到excel的sheet1的第’excel_line_no 行第1列

ThisWorkbook.Sheets(“Sheet1”).Cells(excel_line_no, 2) = Version  ‘’'将变量Version的值写入到excel的sheet1的第’excel_line_no 行第2列

ThisWorkbook.Sheets(“Sheet1”).Cells(excel_line_no, 3) = env      ‘’'将变量env的值写入到excel的sheet1的第’excel_line_no 行第3列

excel_line_no = excel_line_no + 1

Next

wdApp.Application.Quit '关闭word文档

Set wdApp = Nothing '释放对象变量的内存
End Sub
word文档如下：



提取结果如下：

之前介绍过用vba批量提取word中表格的内容，今天来介绍一个提取word文字的实例，如下图：
这里有n个word文档，每个的结构基本一致，只有一些信息不一样。需要提取图中红框的内容。
思路和代码结构和之前提取word表格的差不多，核心代码如下图
关于文字的提取，因为表格结构基本一致，可以用到word中Paragraphs的这个对象，即文档中的整行。
Set WordD = .Documents.Open(filename)'打开文档contents = WordD.Paragraphs(3).Range.Text '提取第三行，根据实际情况进行修改
效果：
可以对提取的信息进一步处理，把只在客户栏中保留客户的姓名，其余的不要。只需要将原句修改为：
contents =Split(WordD.Paragraphs(3).Range.Text，"：")(1)
效果：
以上就是关于这个实例的演示。
这个方法简单方便使用，适合于所有word文档都用同一个模板的时候。如果结构都不一样的话，就需要使用其他的诸如正则、查找等方式来进行操作。
感兴趣的可以在公号内回复「提取文字」自取试用，尽快吧。
如果觉得实用，分享给更多的朋友吧~~~
相关阅读：
Excel VBA 实例(25) - 班级随机点名并播放
Excel VBA 实例(24) - 新股(债)中签一键批量查询
Excel VBA 实例(23) - 一键批量提取word表格内容
Excel VBA 实例(22) - 一键筛选其他工作表或工作簿的数据

欢迎交流！