vb讀取word文件

Question

如何在VB中讀取一個WORD文件中的某一單詞下面的N行前面的n個字符,比如:
      讀取WORD文件如下:
       MICROSOFT:
       中華人民共和國                                    ab中華人民共和國
       中共中央
       中國國民黨   
      現讀取microsoft:下而的3行前輩30個字符也就是要得到如下結果并存入表中
       中華人民共和國
       中共中央
       中國國民黨                 

Answer 1

Dim txt(3)
For i = 1 To 3
  Selection.GoTo What:=wdGoToLine, Which:=wdGoToNext, Count:=1, Name:=""  '下一行
  Selection.Find.ClearFormatting
  Selection.MoveRight Unit:=wdCharacter, Count:=30, Extend:=wdExtend  '选30个字符
  txt(i) = Selection.Text       '获得值
Next    循环3次
不知道你想把结果保存在哪，所以后面就不知怎么写了。

Answer 2

非常感謝 lzqgj,我對vb調用WORD是一無所知,我現在的問題是原來公司的產品資料存在5000個相似WORD文件現在要把名稱/規格等存入數據庫中再麻煩一下寫一下如何打開word并讀取并存入(prart表中的description字段如何,謝謝

Answer 3

先打开word文件：
Set obj = CreateObject(, "word.application")
obj.open Filename:="*.doc"             '你的文件名
Set win = obj.activewindow
Set sel = win.Selection
以下读取word文件，同上，略。
.........................
再打开数据库：
set db as Database
Set db = OpenDatabase(*.mdb)               '文件名
For i = 1 to 3
   db.Excute "Insert Into prart (description) Values (" & txt(i) & ")"
Next
最后释放资源：
db.close
obj.Quit
Set obj = ""
Set win = ""
Set sel = ""
Set db=""
我对数据库编程也不熟，大概这样，你自己再推敲推敲吧。

Answer 4

如何向WORD菜单里添加新的菜单项？