之前介绍过用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） - 一键筛选其他工作表或工作簿的数据

欢迎交流！