vb 截取 word 裡的特定文字

Question

請問各位程式高手~
如何使用 vb 6 抓取 word 檔案裡的特定文字呢?

p.s 已知道篩選文字的方法.不過是篩選 text field 的.
如何開起 word檔~並篩選裡面的特定文字呢?

先謝謝~

Answer 1

寫了一段...試試看唄
請先引用 Word 11.0 Object Library (依Office版本不同，可能會是9.0 , 10.0 , 11.0 之類的)

引用方法
專案->設定引用項目-->Microsoft Word 11.0 Object Library

Dim WordApp As New Word.Application
WordApp.Visible = False
Dim MyDoc As Word.Document
Set MyDoc = WordApp.Documents.Open("C:\test.doc")
Text1.Text = Replace(MyDoc.Content.Text, Chr(13), vbCrLf)
MyDoc.Close
WordApp.Quit
Set WordApp = Nothing

Answer 2

我本來從沒遇到過修NAS修硬碟和隨身碟要資料救援，一開始也跟大家一樣總是問價格到處比價，因為不懂，凡事都從價格,考量，輕言聽信朋友介紹比較便宜一家，找錯家之後痛苦尾隨而來，以下省略500字........,後來自己上網找資料救援找到硬碟醫院，和他們經理溝通之後給我正確觀念，這是妳寶貴的資料，妳要考慮是救不救的回問題，而不是貴不貴問題,如果重要請找對人搶救NAS資料硬碟救援才能恢復你的NAS中多顆的硬碟資料
http://www.datamaster.com.tw/

Answer 3

我記得是有辦法的
我還看過有人用VB寫仿WORD的程式
抓EXCEL等等都有辦法
請到初新者討論區，大家很樂意做詳細的解答
http://willh.org/cfc

Answer 4

vb只可以開啟純文字檔…
而標準的純文字檔的副檔名為.txt
所以建議把word另存成.txt而非.doc吧
然後把該檔的內容讀進text或richtext
以下為讀進text的範例，記得把multiline這個屬性改成true，把scrollbars改成3-兩者皆有
Private Sub Form_Load()
Open "c:\1.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, test
Text1.Text = Text1.Text + Chr(13) + Chr(10) + test
Loop
Close #1
End Sub
這樣就可以循找你想要的字串了…