Access VBA批量提取Word内容写入数据库的几种方法简单分析

要从Word中读取相应的内容并写入到Access或其它数据库中，可采用的方法

1. 使用Word.application 读取 Word 内容，根据关键字去判断

    这个是使用 用office的导入库，但是要求跑程序的机器上有安装office，而且版本必须和开发环境一样

    Do While Selection.Find.Execute(findtext:="关键字", Forward:=True)
        Do
            Selection.MoveEnd Unit:=wdCharacter, Count:=1
        Loop Until Selection Like "关键字2"
        Do
            Selection.MoveEnd Unit:=wdCharacter, Count:=1
        Loop Until Selection.Characters.Last = vbCr
        Selection.Delete '删除 或把内容提取出来
    Loop

2.使用NOPI

  使用Office读写的第三方库，比如 NPOI，这个能够支持 03 和 07 两种格式的解析，应该可以满足解析数据这个需求，而且不需要机器上安装 office。第三方库还有其他的，但是 NPOI 目前应该是用的最多的。

  NPOI 的 github 代码库： https://github.com/tonyqus/npoi

3.将word文档另存为xml 或 HTML

   再使用xml 读写库对xml处理

   或使用正则表达式对html 格式进行处理