Excel VBA 提取word表格中的内容

一、任务需求：

Sir前几天接到一个需求是，从Word文档中提取内容——具体是提取多个Word文档、一个文档内的多个联系人类别，联系人（职务），所属单位和具体联系方式，然后规范地输出到Excel中。

Word文档示例：

汇总格式要求：

二、任务规划：

    1、如何获得信息存放的位置？

     经过一番观察之后，Sir发现，需要提取的信息都被存放在隐藏了边框的表格内，而且这些表格共同的特征是 行数仅有一行，列数都为两列。这样就可以循环遍历文档的每一个表格，通过行数列数来判断信息存放位置。

2、如何将三行信息转为四列信息？

    在word文档中，每行内容结束都会有换行符chr(10)，只需要使用Slipt文本分割函数就可以拆分为数组逐行提取，比较麻烦的是联系方式中间分隔符号是特殊符号，Sir本打算二次使用Split函数，但始终没找到对应的符号，所幸联系方式的文本长度相对固定。所以Sir使用了Mid函数 提取了两个联系方式。

 三、实现效果：

好多隐私信息，就不展示了

四、实战代码：

---------------------------------------------------------------------------------------------------------------

-----------------------------------------------------------------------------------------------------------

五、最后想说的话，实战是提高VBA水平的捷径，即日起，不定期更新实战例子。有定制服务需求的或是需要系统学习、拜Sir为师的随时欢迎。

本文系作者NextSeven原创，转载请注明出处。未经作者允许，请勿用于商业用途