Ошибка FileSearch

[Webmax]

Выполняю поиск по тексту wordовских файлов с помощью Word.Application.FileSearch объекта. Через некоторое время Word просто автоматически закрывается. Может кто-то знает в чем дело и как решить эту проблему?

Код: Выделить всё

Sub MyMacros()
Dim sPth As String
Dim sKey As String
Dim nFound As Integer

sPth = "d:\docs"
With Word.Application.FileSearch
    .NewSearch
    .LookIn = sPth
    .SearchSubFolders = True
    .TextOrProperty = "справка"
       
    If .Execute() > 0 Then
        For i = 1 To .FoundFiles.Count
            sKey = .FoundFiles(i)
            nFound = nFound + 1
        Next i
    End If
End With
MsgBox ("Найдено " + CStr(nFound) + " файлов")
End Sub


[corgi]

через какое время закрывается? что при этом пишет?
ps у меня этот макрос отработал нормально и минуты две после этого я ждал и ворда не закрылась, может у тебя что-то еще при этом выполняется

[Webmax]

В том то и дело, что ничего не пишет - просто закрывается. Может быть дело в том, что у меня очень много wordовских файлов (около 600)?

[corgi]

ну тогда такое предложение попробуй создать директорию с 2-3 файлами и на ней посмотри
ps я при тесте просто указал диск e: - там около 25ГБ инфы, правда там оказалось всего 3 файла нужных
pps а какой у тебя офис

[Webmax]

У меня Office 2000 RUS SR-1,
ОС: Windows NT4 SP6а