办公自动化-如何使用VBA读取word的内容到excel?

在检测行业经常会碰到这样的一种情况：客户，尤其是关键客户，希望每个月知道自己在第三方实验室做了多少份测试，每份测试报告做了哪些测试项目，每个测试项目的测试结果等等信息。那么客户的这种需求就涉及到需要对很多份word的报告（少则几十份，多则数百份）进行特定信息的提取并汇总到一张表格。往往这种需求是不能向客户收费的，属于一种增值的服务。
这种情况我们通常是怎么解决呢？大多数的做法是通过加班依靠人工逐份打开、查找、复制、粘贴。非常耗费时间而且枯燥乏味，为企业带来额外的人工成本。
其实如果懂得使用excel的VBA功能，那么这类耗费数天的工作完全可以在几十分钟内就可以完成。今天我就给大家讲讲实现的方式。
实现的思路：

1. 通过遍历逐分打开word报告，复制word报告的内容到一张excel表。
2. 根据关键词提取关键信息，对复制到excel表的关键信息进行提取并汇总到另外一张excel表。
   设计一张excel表用于装载word报告的内容，将word格式的内容转为excel格式，方便后续在excel表上使用vba进行信息的处理。
   
   另设计一张excel表用于处理读取在excel的信息，对测试项目进行分类汇总处理。
   
   设计单独一张表为操作界面，通过界面将需要提取的报告号放进指定列，设计按钮，给按钮编写任务代码，根据实际的应用场景，分为批量提取和单份提取两种选项。使用者只需要输入（单份提取）或批量导入报告，点击按钮就可以实现自动提取。
   
   实现遍历Word文件打开、读取和关闭的实现代码如下：
   
   根据具体情况再设计其它功能的实现，最终的目的 是实现自动化取代人工的信息提取。大家有什么类似的问题需要私下探讨的可以留言。