如何将doc 文档中的表格读到olecontainer中 我都快急哭了 请帮我一下(0分)

欲实现如下功能
在Form 中定义一个OleContainer， 使该窗体创建时将指定目录下的word 文档中的

表格读到olecontainer中，我使用如下代码

procedure TForm1.read_Table(filename: string);
begin
OleContainer1.CreateObjectFromFile(filename,False);
OleContainer1.DoVerb (ovshow);
OleContainer1.Close;
end;

打开word 的代码为

procedure TForm1.open_word(filename: OleVariant; field_name:string) ;
begin
try
WordApplication1.Connect;
Except
MessageBox(0,'没有正确的安装word','出错',mb_iconError);
Abort;
end;
if FileExists(filename) then
begin
WordApplication1.Visible:=true;
end;
end;

然后在Form1 的FormShow方法中，先执行 read_Table再执行 open_word

为什么 总是得不到正确的结果 或者有时候只能读出表格 却打不开word

请大家帮帮我～·

如何将doc 文档中的表格读到olecontainer中 我都快急哭了 请帮我一下