ReadyGo!技术成就梦想 网络搜索 efish 2008-1-14 6:26:17

请问如何在程序里把word文档、网页文件等格式转换为纯文本格式？

楼主barat（barat）2002-05-14 14:44:09 在 Delphi / VCL组件开发及应用 提问

其实主要目的是想对Access里面的ole字段内容进行全文检索，但Access好像不支持!  
  所以只好先把文件转为纯文本格式放到memo字段中再检索！   欢迎大家讨论！ 问题点数：0、回复次数：2Top

1 楼lanxingw（Qao Kei）回复于 2002-07-12 09:40:11 得分 0

unit   Unit1;  
   
  interface  
   
  uses  
      Windows,   Messages,   SysUtils,   Variants,   Classes,   Graphics,   Controls,   Forms,  
      Dialogs,   StdCtrls,   OleServer,   ComObj,   Word2000;  
   
  type  
      TForm1   =   class(TForm)  
          Button1:   TButton;  
          WordApplication1:   TWordApplication;  
          procedure   Button1Click(Sender:   TObject);  
          procedure   FormDestroy(Sender:   TObject);  
      private  
          {   Private   declarations   }  
      public  
          {   Public   declarations   }  
          wordaaa:Variant;  
      end;  
   
  var  
      Form1:   TForm1;  
   
  implementation  
   
  {$R   *.dfm}  
   
  procedure   TForm1.Button1Click(Sender:   TObject);  
  begin  
          try  
          wordaaa:=CreateOLEObject("word.application");  
          except  
          Application.MessageBox("无法打开该文件，请确认已经安装WORD.","",MB_OK+MB_IconStop);  
          Exit;  
          end;  
          wordaaa.visible:=false;  
          wordaaa.documents.open("d:\test.rtf");  
          wordaaa.ActiveDocument.saveas("d:\change.tmp",wdFormatText);  
   
   
  end;  
   
  procedure   TForm1.FormDestroy(Sender:   TObject);  
  begin  
          wordaaa.Activedocument.close;  
  end;  
   
  end.  
   
   
   
   
   
   
   
   
   
   
   
   
   
   
   
  Top

2 楼jshnet（JshNet）回复于 2002-07-12 09:55:11 得分 0

楼上的同意   ，可以实现Top