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