一个关于Ole和Word的问题……

Question

WordDocument1.ConnectTo(IUnknown(OleContainer1.OleObject) as _Document);
  WordDocument1.Range.InsertBefore('Hello, world');

Answer 1

TO: chechy(我爱洁洁) 
 我是这样做的：
 1)WordApplication1.Connect();--启动一个WordApplication
2)WordApplication1.Documents.Open(…………);//打开一个文档
3)WordDocument1.ConnectTo(WordApplication1.Documents.Item(1));//连接一个WordDocument1
 WordDocument1.TrackRevisions:=true;
…………
4) 
WordDocument1.ConnectTo(IUnknown(OleContainer1.OleObject) as _Document);//此处运行时候出来提示：InterFace Not Supports
   
 为什么出错？哪里有问题？

Answer 2

OleContainer1.CreateLinkToFile(sfilename,false);
WordDocument1.ConnectTo(IUnknown(OleContainer1.OleObject) as _Document);
  WordDocument1.Range.InsertBefore('Hello, world');
也是同样的出错！

Answer 3

首先OleContainer需要连接一个Word文档（比如运行时双击，选中Word Document），再执行这段代码就没错了。