操纵WORD的问题，求教

Question

我要用DELPHI操纵　WORD实现如下功能：
　1.新建word文档,并保存入数据库
　2.对历史库中的WORD文档能够调用出来进行编辑，打印
　哪位达人有相关代码或链接，请贴给我罗，谢了
 [email protected]

Answer 1

看看一个网友的代码
http://expert.csdn.net/Expert/topicview.asp?id=1879680

Answer 2

电子工业出版社的Delphi7高级应用开发139-144页.自己看吧,书店应该有的买.

Answer 3

当然这样做的不能直接存入数据库,可以转一下子嘛.
//流和变量间的转换
procedure TForm2.VariantToStream (const v : olevariant; 
                                  Stream : TMemoryStream); 
var 
  p : pointer; 
begin 
  Stream.Position := 0; 
  Stream.Size := VarArrayHighBound (v, 1) - VarArrayLowBound(v,  1) + 1; 
 p := VarArrayLock (v); 
  Stream.Write (p^, Stream.Size); 
  VarArrayUnlock (v); 
  Stream.Position := 0; 
end; procedure TForm2.StreamToVariant (Stream : TMemoryStream; var v : OleVariant); 
var 
  p : pointer; 
begin 
  v := VarArrayCreate ([0, Stream.Size - 1], varByte); 
  p := VarArrayLock (v); 
  Stream.Position := 0; 
  Stream.Read (p^, Stream.Size); 
  VarArrayUnlock (v); 
end; 
这样就可以保存了.

Answer 4

那怎样才能保存回数据库呢？
如有的软件在word的菜单中加入〈关闭并返回程序>
菜单是怎样加上去的？
怎样处理这条消息？
谢谢回答了就给加分

Answer 5

Word文件存取用TStream, 把TFileStream转为TBLOBStream存入BLOB字段.
读取和操纵用OLE.

Answer 6

方法好像和VB差不多建个WORD对象就可以操作了具体帮助可以看OFFICE BASIC编程帮助（默认是不安装的）

Answer 7

用OLE.是不是比较慢啊。。
那么怎样通过word菜单存入数据库呢。。