用 olecontainer 调用 word 的问题(30分)

  • 主题发起人 主题发起人 leader47
  • 开始时间 开始时间
L

leader47

Unregistered / Unconfirmed
GUEST, unregistred user!
word 嵌入了 olecontainer,但不想要 word 的工具栏, 有什么办法可以实现?
调用word的代码:
olecontainer1.CreateObjectFromFile(opendialog1.FileName,false);
olecontainer1.Visible := True;
olecontainer1.DoVerb(ovShow);
olecontainer1.Run;
 
OleContainer1.Application.CommandBars['Standard'].Visible:=False;
OleContainer1.Application.CommandBars['Formatting'].Visible:=False
 
运行时提示:Application 没有定义.
怎么办?
 
OleContainer1.OleObject.Application.CommandBars['Standard'].Visible:=False;
OleContainer1.OleObject.Application.CommandBars['Formatting'].Visible:=False
 
OleContainer1.OleObject.Application.CommandBars['Standard'].Visible:=False;
OleContainer1.OleObject.Application.CommandBars['Formatting'].Visible:=False
这两句放在哪里?
放在 olecontainer1.Visible := True;前后都出错.'Interface not supported'
放在 olecontainer1.DoVerb(ovShow); 还有工具栏出现.

Thanks!
 
问题还没有解决? 谁可以告诉我.
谢谢!
 
给分啊,嘿嘿,
在设置以后再刷新一次。
OleContainer1.CreateObjectFromFile('F:/1.doc',false); //测试删除目录。
OleContainer1.DoVerb(ovshow);
V:=OleContainer1.OleObject;//取得WordDocument对象;
V.Application.CommandBars['Standard'].Visible:=False;
V.Application.CommandBars['Formatting'].Visible:=False;
OleContainer1.DoVerb(-1);//刷新一次就可以了
 
To HABFFD:
我试过了,如果打开的是 Word工具栏不会出现.
但打开的是 Excel ,工具栏还出现. 请问怎样解决?
谢谢!!
 
可以使用WebBrowser组件直接读取Word文档
 
可以介绍一下怎样读取word吗? WebBrowser帮助文档没有找到.
 
还有一个问题:
我用olecontainer 打开的 Word 文挡,里面的内容可以被修改.
我想实现,打开的 Word 不能被修改其内容. 只能读,不能写.
怎样实现? 谢谢!
 
试一试不要将olecontainer设置焦点
即setfocus属性为false
 
后退
顶部