用WordApplication时怎样屏蔽掉Word的菜单,还有怎样控制word在Delphi中的Form中打开 olecontainer就可以实现你的功能 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 如果用Olecontainer,对Word文档进行操作就不方便了,我想问用WordApplication可不可以实现 1. 在WORD 中先将要关闭的菜单关闭, 然后存为一模板, 用WordApplication与之连接然后另存为文件即可。2. 以下是一个按钮的响应过程:try WordApplication1.Connect; WordApplication1.Visible:=True; //设置为可见{{ FileName:=ExtractFilePath(Application.ExeName)+'MyContent.dot';//打开模板文件,在该模板文件中可关闭不需要的菜单等,若是直接连接,则注释掉的部分不要 itemindex:=1; tempPlate:=Filename; newtemplate:=false; DocumentType:=wdNewBlankDocument; Visible:=True; WordApplication1.Connect; WordApplication1.Visible:=true; WordApplication1.Documents.Add(TempPlate,newtemplate,documentType,Visible); WordDocument1.ConnectTo(WordApplication1.Documents.Item(itemindex)); FileName:=ExtractFilePath(Application.ExeName)+'编辑完成后切回原程序.RTF'; FileType:=wdFormatRTF; WordDocument1.SaveAs(FileName, FileType); //保存为RTF格式 }finally //断开连接 WordDocument1.Disconnect; WordApplication1.Disconnect;// WordApplication1.Quit; Word中好像不可已关闭所有的菜单栏? 选“ 工具” 菜单的自定义, 然后按住鼠标左键, 将不需要显示的菜单项如文件拖离菜单栏便可关闭。 这样可关闭所有的菜单项, 然后在工具栏上点击鼠标右键将不需显示的工具栏如“常用” 等关闭。 调整满意后退出。 用开始菜单的查找文件功能找到Normal.dot后复制至要的目录下, 将其改名。 将原文件删除, 则重新启动Word 后会显示出缺省的菜单设置。 首先谢谢yxwhrz,但是用右键还是可以重新设置,并且用快捷方式都可以用,能不能包括右键、快捷方式都屏蔽掉 正好也要做,不知如何让用户不能修改WORD文档后打印它呢?从数据库里读出来的记录,要打印 ASM 里的DB 是什么意思? excel中的特殊字符在ACCESS中不识别的问题 半角转全角 求教DXdbgrid系列组件使用方法 关于服务的问题 如何实现循环检测? delphi7的Idtcpserver与Idtcpclient 的问题,请各位高手进来发表高见 建议DELPHI论坛开OLE/Automation子论坛!同意者UP 代码建数据源 如何发送邮件? 关于日期字符串的问题? 400k程序打包后变3M???
2. 以下是一个按钮的响应过程:
try
WordApplication1.Connect;
WordApplication1.Visible:=True; //设置为可见
{{ FileName:=ExtractFilePath(Application.ExeName)+'MyContent.dot';//打开模板文件,在该模板文件中可关闭不需要的菜单等,若是直接连接,则注释掉的部分不要
itemindex:=1;
tempPlate:=Filename;
newtemplate:=false;
DocumentType:=wdNewBlankDocument;
Visible:=True;
WordApplication1.Connect;
WordApplication1.Visible:=true;
WordApplication1.Documents.Add(TempPlate,newtemplate,documentType,Visible);
WordDocument1.ConnectTo(WordApplication1.Documents.Item(itemindex));
FileName:=ExtractFilePath(Application.ExeName)+'编辑完成后切回原程序.RTF';
FileType:=wdFormatRTF;
WordDocument1.SaveAs(FileName, FileType); //保存为RTF格式 }
finally
//断开连接
WordDocument1.Disconnect;
WordApplication1.Disconnect;// WordApplication1.Quit;
但是用右键还是可以重新设置,并且用快捷方式都可以用,能不能包括右键、快捷方式都屏蔽掉