Как убыстрить поиск?

[Dennikid]

провожу поиск файла с словами с помощью:

Function WSS(ADocument: TFileName; Search1,Search2,Search3:string): Boolean;
const
  wdFindContinue = 1;
  wdReplaceOne = 1;
  wdReplaceAll = 2;
  wdDoNotSaveChanges = 0;
var
  WordApp: OLEVariant;
begin
  Result := False;

  { Существует ли файл }
  if not FileExists(ADocument) then
  begin
    ShowMessage('Файл не найден!');
    Exit;
  end;

  { Создаем OLE объект }
  try
    WordApp := CreateOLEObject('Word.Application');
  except
    on E: Exception do
    begin
      E.Message := 'Word недоступен';
      raise;
    end;
  end;

  try
    WordApp.Visible := False;
    { Открываем документ }
    WordApp.Documents.Open(ADocument);
    WordApp.Selection.Find.ClearFormatting;
    WordApp.Selection.Find.Text := Search1;//поиск первого слова
    WordApp.Selection.Find.Forward := True;
    WordApp.Selection.Find.Wrap := wdFindContinue;
    WordApp.Selection.Find.Format := False;
    WordApp.Selection.Find.MatchWholeWord := False;
    WordApp.Selection.Find.MatchSoundsLike := False;
    WordApp.Selection.Find.MatchAllWordForms := False;
    result:=WordApp.Selection.Find.Execute;
    if result=true then
    begin
    WordApp.Selection.Find.Text := Search2;//поиск второго слова
    WordApp.Selection.Find.Forward := True;
    WordApp.Selection.Find.Wrap := wdFindContinue;
    WordApp.Selection.Find.Format := False;
    WordApp.Selection.Find.MatchWholeWord := False;
    WordApp.Selection.Find.MatchSoundsLike := False;
    WordApp.Selection.Find.MatchAllWordForms := False;
    result:=WordApp.Selection.Find.Execute;
    if result=true then
    begin
    WordApp.Selection.Find.Text := Search3;//поиск 3 слова
    WordApp.Selection.Find.Forward := True;
    WordApp.Selection.Find.Wrap := wdFindContinue;
    WordApp.Selection.Find.Format := False;
    WordApp.Selection.Find.MatchWholeWord := False;
    WordApp.Selection.Find.MatchSoundsLike := False;
    WordApp.Selection.Find.MatchAllWordForms := False;
    result:=WordApp.Selection.Find.Execute;
    end;
    end;
    finally
    { Закрываем Word }
    WordApp.Quit;
    WordApp := Unassigned;
  end;
end;

но у меня 3500 файлов для поиска((((((( процесс очень долгим обещает быть(((( Как убыстрить процесс?

[Izhic]

помниться 90 % всех методов не нужно поэксперементируйте удалите лишнее, может вообще окажется что
чтото вроде

WordApp.Selection.Find.Text := Search1;//поиск первого слова
result:=WordApp.Selection.Find.Exec ute;

Вообще это какой то изврат 3 раза одинаковый код писать *SCRATCH*

Кстати ИМХО не стоит каждый раз закрывать Ворд просто документ меняйте.
Знаете сколько он времнеи открывается?

И Я поиск делал . 800 файлов перебирал и составлял оглавение для ресура, читай сайта *THUMBS UP*

ЗЫ://Блин исправьте этот убыстрить на ускорить кто-нибудь, пожалуйста

[Dennikid]

3 раза одинаковый код, потому что ищу 3 разных слова.
"читай сайта" - это где?

Кстати ИМХО не стоит каждый раз закрывать Ворд просто документ меняйте. 
Знаете сколько он времнеи открывается?

а знаешь сколько 3500 открытых файлов ресов жрут?

[Andrei]

Сообщение от Dennikid

... а знаешь сколько 3500 открытых файлов ресов жрут?

Зачем же их все открытыми держать? Например,

WordApp.ActiveDocument.Close; {закрываем активный документ Ворда}
WordApp.Documents.Open(ADocument); {загружаем следующий, не закрывая Ворда}

[Alex.rus]

Пиши на Асемблере будет намного быстрей.

[BOBAH13]

Мда... странные вы... Какая разница на ассемблере или нет?! Тут ясно сразу, вы используите OLE для каждого документа, ну и пока каждый OLE Word объект подключит к каждому документу а потом уже начнет что-то искать требуется не мало времени. Тут дело не в коде, а в самом способе поиска!

[Dennikid]

ну wordapp.close я нашел - ненамного ускорилось(((((
так подскажите как искать пошустрее (каким способом)?

[BOBAH13]

Я же вроде сказал... наверное лучший вариант, это разобраться с форматом word файла потом открывать его и читать текст и искать нужны слова... это я думаю будет намного быстрее чем через OLE объекты... ну а если вам лень что-либо делать... тогда смеритесь с этим способом... ускорить работу OLE не выйдет... это отдельная программа... как вы ее ускорите интересно..

[Dennikid]

я сделал через wordapp.close. как убрать моргание экрана при поиске?
WordApp.Visible:=false, но все равно при открытии документа на экране на доли секунды появляется Word((((
Через OLE поиск в 3500 файлах занял 5 мин))) Но моргание экрана в эти 5 мин достало(((
И как ввести проверку на поврежденность файла? А то сбои происходят(((