Dateien durchsuchen

[luckystar85]

Ich habe folgende Möglichkeit gefunden:
Mit dem Code kann ich ein Word-Dokument in eine einfache Textdatei konvertieren. Die Textdatei kann ich ja dann ganz einfach durchsuchen. Das Problem ist das Konvertieren, das dauert bei großen Word-Dokumenten sehr lange.

Delphi-Quellcode:

Var
  lFiletyp: OleVariant;
Begin
  wap_Application.Connect;
  Try
    //WordApplication1.Visible := True;
    wap_Application.Documents.Open(AFile, EmptyParam, EmptyParam,
                                   EmptyParam, EmptyParam, EmptyParam,
                                   EmptyParam, EmptyParam, EmptyParam,
                                   EmptyParam, EmptyParam, EmptyParam,
                                   EmptyParam, EmptyParam, EmptyParam);
    wdc_Document.ConnectTo(wap_Application.ActiveDocument);
    lFiletyp := wdFormatText;
    wdc_Document.SaveAs(AOutFile, lFiletyp);
    wdc_Document.Close;
    wdc_Document.Disconnect;
  Finally
    wap_Application.Disconnect;
    wap_Application.Quit;
  End;
End;

Habt ihr noch eine andere Möglichkeit?