怎么用VBA代码批量提取word中的特定数据到EXCEL？

Question

如题，有大量的文档里面都包含这些信息[A00] Customs duties 7.50[B00] VAT 0.00[B00] VAT (PVA) 69.69还有其他文字、图、表。但是我现在只想知道带有“Customs duties”“VAT”“VAT (PVA)”这三个字样后面的数据，word文件很多，几十上百个，可以整理到一个文件夹里没问题。目标excel希望存储这些信息的方式是，列A为文档名，列B-D分别为带有"Customs duties”“VAT”“VAT (PVA)”这些字样的数字数据, Word文档中数据位置如图

Answer 1

从你的图片，可以看出，数据是在WORD文件的表格中的，编个小程序可以解决，思路如下：
1、程序遍历指定文件下的所有DOC类文档，
2、打开找到的第一个文档，遍历文档中的每一个表格，
3、遍历表格中的每一个格子，与关键字进行比较，找出目标，其右侧的单元格中就是你要的字符串
4、程序新建EXCEL表格（这一步可以事先进行）
5、将找到的字符，输出到EXCEL表格中适当位置
6、循环直至文档未
7、循环直至文件夹中所有DOC文档全部处理完成
8----欢迎一起探讨（说明，我用的是C++，调用WORD，与EXCEL用的是ACTIVEX方法）

Answer 2

set打开word文档，直接从word的表格获取数贴到excel里，然后提取需要的，或者用find找到对应的关键词贴到excel

Answer 3

有规律是可以处理的
通过代码来提取信息到Excel的对应位置。