上次20分，没人回答，这次总该好了吧！！！！！

Question

CSDN的高手都睡觉去了，还是出去花天酒地去了，要知道历来王朝都是这样消沉下去，然后就不用我说了，希望。

Answer 1

是access数据库吧？直接打开好象会是一大堆乱码
你可以将blob数据读出后，存成一个临时文件，然后再用word打开

Answer 2

ole,和blob数据结合，可以读出来
var olestream:Tstream;
begin
olesteam:=table.CreateBlobStream(table.FieldbyName('field1'),bmread)
begin
OLE.LoadFromSTREAM(OLEstream);
olestream.savetofile('c:\a.doc');
ole.DoVerb(ovshow);
olestream.free;
end;
end;

Answer 3

你可以看一下DELPHI自己带的例子。我作过EXCEL的，没作过WORD的。
但实质应该是一样的。如果还不明白，请EMAIL [email protected]
我们继续讨论。（我的DELPHI是在C：盘的）
C:\Program Files\Borland\Delphi5\Demos\Activex\Oleauto\Word8

Answer 4

我是想做个试卷生成，所以我的OLE字段要和其他字段一起插入WORD文件，我知道IMAGE字段可以利用剪切板，但是OLE我就不行了，希望各位大哥多多帮忙！！！！

Answer 5

你搜索一下关于word的编程，到处都是这样的例子

Answer 6

我把一个word对象潜入到oleContrainer中1。 保存：
 OleStream : TMemoryStream;
 OleContainer1.SaveToStream(OleStream);
    OleStream.Position := 0; //找回零点
     Tblobfield(FieldByName('Content')).LoadFromStream(OleStream);
 Post;
                UpdateBatch   //缓冲模式
2。取出：
var tAbs:TADOBlobStream; try
       tAbs:=TAdoBlobStream.create(TBlobField(FieldByName('content')),bmRead);     tAbs.position:=0;
     OleContainer1.LoadFromStream(tAbs);
    OleContainer1.doVerb(ovShow);//显示文档
finally
     tAbs.Free ;
  end;   WordApp.Connect;//WordApp为一个Server中的WordApplication对象
   WordDoc.ConnectTo(WordApp.ActiveDocument);//WordDoc为一个Server中

Answer 7

为什么没人能给我一个比较满意的答案呢，思路也行， wenzm(魔术师)的倒挺不错的，但是还是输出到OLE中，而我想要的是和其他字段一起插入到WORD中，可能是 wenzm(魔术师)大哥没有听董我的意思，我是不知道到底该怎写，通过什么方式，通过流我倒可以存到流里去，但是我又不知道如何从流到WORD中，不象PARADOX的IMAGE字段一样，他倒可以通过剪切板，可流和WORD又有什么联系呢？？
我问过一个老师（我是学生），他说可以直接写，但是由于本人实在愚蠢，不会，请给位再帮我想想办法，我只有几天时间就要给老师交任务，所以我实在是没办法，最好连往数据库中传的一起，谢谢！！！！！！要是解决了，给300分，决不食言，谢谢！！！一个学生的真诚请求！！！！

Answer 8

我也不会，主要是没有时间去仔细研究，要工作呀，帮你搜索了一下
http://www.china-askpro.com/database.shtml
http://www.delphibbs.com/delphibbs/dispq.asp?lid=1027505
http://www.delphibbs.com/delphibbs/dispq.asp?lid=523771
等等，建议你去 DFW 看看。

Answer 9

不明白什么意思。
这样可以吗？var objWord: Variant;
begin
objWord:= CreateOLEObject('Word.Application');
objWord.Documents.Open('mydoc.doc', False);
objWord.Visible := 1;
objWord.ActiveDocument.Range.InsertAfter('test');
end;(记忆写的，代码可能有问题，改改吧）

Answer 10

你需要的是关于OLE控制Word的资料，自己看看帮助就知道了！你安装Office2000，就会有一个vbaXXX.chm的文件，里面有你需要的资料！或者我的主页也有相关的资料下载！提示一个：有几个方法，一个是使用Word的Ole功能，调用Insert（Word.basic），或者InsertAfter(Word.Application)，另外一个就是利用CP大法，通过剪切板，这样可以Paste RTF的数据！命令就是Selection.Paste，自己看看Word的宏就知道了。

Answer 11

可怜的人......我虽然没有用过Delphi连接word 但是试着在word 录了一个宏 , 加了一个Excel空对象 , 宏的代码如下 , 不知道是否对你有帮助?你可以顺着这个思路想想看看是否对你有帮助Selection.InlineShapes.AddOLEObject ClassType:="Excel.Sheet.8", FileName:=  "", LinkToFile:=False, DisplayAsIcon:=False另外:算我多嘴
在网上,星级的高手也没有义务为你解决你自己的问题,大家相互帮助,但是自己的事情还是要自己想办法.你不是领导,因此没有人会在意你满不满意