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
请大家帮帮我~·
在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
请大家帮帮我~·