【vba怎么提取word数据】Excel VBA例证(26)按一下即可批次萃取word文字内容

以前曾使用VBA大量提取word的表内容，今天我将介绍word文字提取的例子，如下图所示。

这里有N个word文档，每个结构基本一致，只有部分信息不同。必须从图中提取红色方框的内容。

想法和代码结构和之前提取word表差不多，核心代码如下图所示。

由于字符提取的表格结构基本匹配，因此可以使用word中的Paragraphs对象，即文档的整行。

SetWordD=。打开“Documen(文件名)”文档

Contents=wordd.paragraphs (3)。“range.text”提取第三行，并根据实际情况进行修改

效果：

提取的信息可以进一步处理，只能在“客户”列中保留客户姓名，其馀的可以保留。(大卫亚设，Northern Exposure)只要把原来的句子改为：

Contents=Spli(3).Range.Text，':')(1)

效果：

这就是这个例子的演示。

此方法易于使用，适用于所有word文档使用相同模板的情况。如果结构不同，则必须使用一般、查找等其他方法。

感兴趣的可以在公众号内回答“文本提取”，自己试试，请快点。

如果实用的话，请分给更多的朋友~ ~ ~

相关阅读：

Excel VBA实例(25)-任意出席和播放类

Excel VBA实例(24)-查看新股(负债)中的一键布局

Excel VBA实例(23)-单击一次即可批量提取word表内容

Excel VBA例项(22)—按一下即可筛选其他工作表或工作簿中的资料

欢迎交流！