ワードファイル（多数）に対するあいまい検索を実現するには

素人 2004-12-03 03:03:36 No: 117966

ワードファイルをテキストファイル形式に変換してその後にテキストファイルに対して検索をかけるプログラムを作っています。
しかしワードファイル（約１００回）のＯＰＥＮとＣＬＯＳＥに時間がかかりすぎる状況です。何かいい手はないのでしょうか？
一括変換など・・・。すいません。
以下現時点のコードです

Private Sub Command1_Click()

    Dim wdApp As New Word.Application
    Dim wdDoc As Word.Document
    Dim strTemplate As String
    Dim i


        strBMPFile = Dir$("SIYOUSYO\*.*") 'ファイルだけならこちらでも

    'strBMPFile が空になるまで繰り返し
    Do While strBMPFile <> ""
            intKen = intKen + 1
            ReDim Preserve strMyFile(intKen)
            'ファイル名を配列に格納
            strMyFile(intKen) = strBMPFile

        strBMPFile = Dir$        '次のファイル名を読込
    Loop


    For i = 1 To intKen

        List1.AddItem (strMyFile(i))
Next i


    MsgBox strMyFile(1)

    MsgBox strMyFile(2)

Dim count
count = 1

Do

    Set wdDoc = wdApp.Documents.Open("SIYOUSYO\" & strMyFile(count))

    wdDoc.SaveAs "SIYOUSYO\" & "Sample" & count & ".txt", wdFormatText

    wdDoc.Close
    Set wdDoc = Nothing


    count = count + 1
Loop While intKen >= count
     wdApp.Quit
    Set wdApp = Nothing
    MsgBox "作業終了"


End Sub

Dental 2004-12-04 02:04:05 No: 117967

# 回答に非ず。

> ワードファイル（多数）に対するあいまい検索を実現するには
インデックサービスを利用するとか。

[サトリ]
http://www.forest.impress.co.jp/article/2003/07/15/satori.html

[Microsoft フルテキスト検索技術]
http://www.microsoft.com/japan/technet/prodtechnol/sharepoint/reskit/part1/co5spprk.asp

> ワードファイルをテキストファイル形式に変換して
こんなのとか。
[xdoc2txt]
http://www31.ocn.ne.jp/~h_ishida/xdoc2txt.html