请门各位高手在DELPHI中如何用DELPHI的控制TWordApplication,TWordDocument等来控制Word文件？

Question

看到的
回复人：　wwwwwwww(我我)　(2002-1-28 9:46:44)  得0分 
保存word文档:
procedure Tfrmdyqk1.BitBtn3Click(Sender: TObject);
var  ms:TMemoryStream;
begin
  ms:= TMemoryStream.create;
  OleContainer1.SaveToStream (ms);
  ms.Position := 0;  Query1.close;
  Query1.sql.clear;
  Query1.sql.text:='select *  from oadbo.bw_qwb';
  Query1.open;
  Query1.append;
  Query1.fieldbyname('wjid').value:=77777777 ;
  Query1.fieldbyname('wjdid').value:=7;
  Query1.fieldbyname('kzm').value:='txt';
  TBlobField(Query1.fieldbyname('qw')).loadfromstream(ms);
  ms.free;
  Query1.post;
  //Query1.applyupdates;
  Query1.close;
end;取出word文档：
procedure Tfrmdyqk1.Button2Click(Sender: TObject);
var  strstream:Tmemorystream;
      //ls_qw:string;
begin    OleContainer1.DestroyObject;
    strstream := Tmemorystream.Create;    query1.Close;
    query1.sql.clear;
    query1.SQL.Add('select qw from oadbo.bw_qwb where wjid =' + inttostr(77777777));
    query1.open ;
    query1.First;
    
    
    Tblobfield(query1.fieldbyname('qw')).savetostream(strstream);
    strstream.position:=0;
    OleContainer1.loadfromstream(strstream);    strstream.free;
end;