如何把一个变量word:Variant;连接到OleContainer1中oleobject(100分)

我想使用“delphi 和word 融合术”中的方法使用宏操作olecontainer中的word；
但如何把word：variant连接的olecontainer中的word？

try
//word:=GetActiveOleObject('word.application');//使用这行代码可以保存文档
word:=OleContainer1.OleObject;//使用这行代码不能保存文档
except

end;
word.ActiveDocument.SaveAs(FileName:='C:/Documents and Settings/Administrator/桌面/新建文件夹/Doc_File',AddToRecentFiles:=False);

MSWord := CreateOLEObject('Word.Application');//连接Word
MSWord.Documents.Open(FileName:='d:/test.doc', ReadOnly:=True);//打开外部Word文档
MSWord.Visible := 0;//是否显示文件编辑
MSWord.ActiveDocument.Range(Start:=0, End:=0);//开始改变的启止位置
MSWord.ActiveDocument.Range.InsertAfter(Text:='Title');//在Word中增加字符'Title'
MSWord.ActiveDocument.Range.InsertParagraphAfter;
MSWord.ActiveDocument.Range.Font.Name := 'Arial';//字体名称
MSWord.ActiveDocument.Range.Font.Size := 24;//字体大小

接受答案了.