怎样快速访问word文档？

Question

怎样访问word文档才能较快？？写文档管理软件
提取每个文档第一段的内容作为标题，见贴
http://expert.csdn.net/Expert/TopicView1.asp?id=2129523
但是这样好慢阿（要搜索大量的文件）跪求快一点的方法！！

Answer 1

function TMyClass.OpenWordDocument(const AFileName: String;
  AControl: TCustomMemo): Boolean;
var
  NewDoc: Variant;
  V: OleVariant;
begin
  try
    try
      V := CreateOleObject('Word.Application');//建立自动化对象
      NewDoc :=V.Documents.Open(AFileName); //打开指定文件
      NewDoc.Content.Copy; //拷贝到剪贴板
      AControl.Lines.Clear;
      AControl.PasteFromClipboard; //粘贴
      NewDoc.Close; //关闭Word文件
    finally
      V.Quit; //释放自动化对象
    end;
    Result := True;
  except
    Result := False;
  end;
end;

Answer 2

shellexecute(application.Handle, 'open',pchar('C;\test.doc'), '', nil, SW_NORMAL);