Access VBA批量提取Word內(nèi)容寫入數(shù)據(jù)庫的幾種方法簡(jiǎn)單分析

要從Word中讀取相應(yīng)的內(nèi)容并寫入到Access或其它數(shù)據(jù)庫中，可采用的方法

1. 使用Word.application 讀取 Word 內(nèi)容，根據(jù)關(guān)鍵字去判斷

    這個(gè)是使用 用office的導(dǎo)入庫，但是要求跑程序的機(jī)器上有安裝office，而且版本必須和開發(fā)環(huán)境一樣

    Do While Selection.Find.Execute(findtext:="關(guān)鍵字", Forward:=True)
        Do
            Selection.MoveEnd Unit:=wdCharacter, Count:=1
        Loop Until Selection Like "關(guān)鍵字2"
        Do
            Selection.MoveEnd Unit:=wdCharacter, Count:=1
        Loop Until Selection.Characters.Last = vbCr
        Selection.Delete '刪除 或把內(nèi)容提取出來
    Loop

2.使用NOPI

  使用Office讀寫的第三方庫，比如 NPOI，這個(gè)能夠支持 03 和 07 兩種格式的解析，應(yīng)該可以滿足解析數(shù)據(jù)這個(gè)需求，而且不需要機(jī)器上安裝 office。第三方庫還有其他的，但是 NPOI 目前應(yīng)該是用的最多的。

  NPOI 的 github 代碼庫： https://github.com/tonyqus/npoi

3.將word文檔另存為xml 或 HTML

   再使用xml 讀寫庫對(duì)xml處理

   或使用正則表達(dá)式對(duì)html 格式進(jìn)行處理