delphi 操作word求助
在delphi中操作word,有如下需求:
1、读取任意doc文档
2、可以选择显示或者不显示word的操作菜单
已经做了一下尝试:
1、使用TOleContainer对象,如下来读取:
try
MyWordOLE.CreateObjectFromFile(sFile,false);
MyWordOLE.Run;
if MyWordOLE.State = osRunning then
MyWordOLE.DoVerb(ovPrimary);
except
on E: Exception do
begin
Result := False;
Application.MessageBox(Pchar('打开文档 " ' + sFile + ' "失败: ' + E.Message), '系统提示: ', 48);
Exit;
end;
end;
MyWordOLE.DoVerb(ovPrimary);这里如果设置为ovHide,就不会显示word的菜单,但是那样word内容中不会出现滚动条,这样导致不能很好的显示内容,google了一下说是OleContainer自身的bug
2、尝试使用DSOFramer控件,但是在delphi注册后,只要在窗体上放置控件,运行就出现invalid variant type错误,没有找到解决办法!
寻求同志们的帮助,解决问题另外加100分!