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