用 TOleContainer调用Word的问题?(200分)

  • 主题发起人 主题发起人 qinxuemei
  • 开始时间 开始时间
Q

qinxuemei

Unregistered / Unconfirmed
GUEST, unregistred user!
大家好!我现在正在用 TOleContainer调用Word,即把WORD嵌入窗体中,但是在这个
过程中我遇到了几个问题:
1、WORD的菜单和窗体的菜单合并了,我不想要WORD的菜单,我试了一下
OleContainer1.CreateObjectFromFile(OpenDialog1.FileName,false);
OleContainer1.DoVerb(-1);
V:=OleContainer1.OleObject;
V.Application.CommandBars['Menu Bar'].Visible:=False;//这个语句行不通;
2、怎么去掉WORD界面的全部工具条,我现在只知道
V.Application.CommandBars['Standard'].Visible:=False;
V.Application.CommandBars['Formatting'].Visible:=False;
这可以去掉“常用”和“格式”工具条,其它的怎么去掉?比如“符号栏”工具条?
3、怎么实现TOleContainer的“打印预览”和“打印”功能?
v.Application.Document.PrintPreview;
v.Document.PrintPreview;//这些都通不过
4、怎么实现关闭退出功能?
v.quit;
close;//这些也行不通
5、为什么if fontdialog1.execute then
v.Application.Selection.Font:=fontdialog1.font;
通不过,而只能用
v.Application.Selection.Font.size:=fontdialog1.font.size;
v.Application.Selection.Font.color:=fontdialog1.font.color;
6、怎么在菜单里实现输入法的转换?
我实在没有办法了,所以只能向大家请教了,拜托了,客户已经很不耐烦了!
如果大家有代码能不能给我发一份,解决问题了我把分都给了!
E-mail:qinyingmei@263.net
 
请大家帮帮忙啊!
 
1、改成Application.CommandBars('Menu Bar').Visible:=False;
实验一下,肯定有办法可以的,我曾经做过,多尝试几次。
2、你需要使用循环来实现这个功能,Word本身的工具条有很多。
3、据说可以打印,(刚才看见的737517中ably说的)
4、不知道,对于普通CreateOleObject创建的,可以使用你写的那种方式退出。
5、将就这用吧。[:)]
6、I Don't KNow
 
3.可以打印??
天哪,当初拚了命的找甚至请教了borland的代理也没有答案,谁要是知道了
告诉我,谢谢了.
4.先保存然后destroy这个Container.
6.我试了一下,模拟键盘吧,反正你也不知道人家安装了什么输入法.
keybd_event(vk_control,mapvirtualkey(vk_control,0),0,0);
keybd_event(vk_shift,mapvirtualkey(vk_shift,0),0,0);
keybd_event(vk_shift,mapvirtualkey(vk_shift,0),KEYEVENTF_KEYUP,0);
最后别忘了也
keybd_event(vk_control,mapvirtualkey(vk_control,0),KEYEVENTF_KEYUP,0);
 
去掉WORD界面的其他工具条,我现知道的还有: Drawing、Borders、Control Toolbox
 
Tables and Borders、AutoText等,
可以通过在word中录制宏,获取想要的工具栏的名称。
 
打印可以用v.Application.activeDocument.printout
我做的可以。
另外如果要更进一步的控制,必须要查看vbawrd9.chm这个文件,它会给你很多帮助的。我
从中已经得到了不少好处。
 
后退
顶部