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

  • 主题发起人 主题发起人 jimiking
  • 开始时间 开始时间
J

jimiking

Unregistered / Unconfirmed
GUEST, unregistred user!
欲实现如下功能
在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

请大家帮帮我~·
 
>>然后在Form1 的FormShow方法中,先执行 read_Table再执行 open_word
你在OLECONTAINER中打开,然后关闭,应该释放一下。
然后又OPEN_WORD打开,也不知道是不是怎么回事,如果是觉得在OLECONTAINER不好控制
WORD的话,可以将OLECONTAINER中的WORD直接付给WordApplication1那样,只要前面显示
正确,后面也一样正确。而且打开具体文档针对之操作的话你最好通过WordDocument控件,
其实OLECONTAINER也一样可以控制的。不知道你要干什么。
 
后退
顶部