微信公众号:yhjbox(永恒君的百宝箱),获取最新文章、资源。

Excel VBA 实例(26) – 一键批量提取word文字内容

Excel VBA 实例 永恒君 851℃ 0评论
之前介绍过用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

anyShare分享到:

转载请注明:永恒君的百宝箱 » Excel VBA 实例(26) – 一键批量提取word文字内容

喜欢 (1)
发表我的评论
取消评论

*

code

表情