各位大哥帮帮忙吧 要死了 delphi控制word 在word中添加一个菜单,并动态的添加菜单的点击事件,当按钮点击时来执行delphi中的一段代码。(200)

  • 主题发起人 主题发起人 newzhq
  • 开始时间 开始时间
N

newzhq

Unregistered / Unconfirmed
GUEST, unregistred user!
请教个问题:delphi控制打开word的时候动态添加一个菜单 并动态添加菜单的点击事件来执行delphi中写的一段过程 怎么来实现呀 希望各位富翁能贴出代码或给出例子其余已实现 主要问题:动态的添加菜单的点击事件,当按钮点击时来执行delphi中的一段代码。
 
各位大哥帮帮忙 有钱的捧个钱场 没钱的捧个人场呀
 
好像是addin,我也不是很懂,希望高手出来指点
 
把添加菜单的代码贴出来
 
//创建菜单项 try if WordApp.CommandBars.ActiveMenuBar.Enabled then begin with WordApp.CommandBars.ActiveMenuBar do begin for I := 1 to Controls.Count do if Controls.Item.Caption = 'test' then Controls.Item.Delete(True); NewMenu:= Controls.Add(msoControlpopup, EmptyParam, EmptyParam, EmptyParam, True) as CommandBarPopup; //创建menuitem NewMenu.Set_Caption('test'); //创建打开痕迹保留菜单 with NewMenu do begin NewMarkMenu := Controls.Add(msoControlButton, EmptyParam, EmptyParam, EmptyParam, True) as CommandBarButton; NewMarkMenu.Set_Caption('打开痕迹保留'); NewMarkMenu.Set_OnAction('MarkSave'); //将一个宏赋值给这个ITEM NewMarkMenu.Set_State(msoButtonDown); end; //创建保存菜单 NewMenu. with NewMenu do begin NewSaveWdsl := Controls.Add(msoControlButton, EmptyParam, EmptyParam, EmptyParam, True) as CommandBarButton; NewSaveWdsl.Set_Caption('保存文档'); NewSaveWdsl.Set_OnAction('SaveWdsl'); //将一个宏赋值给这个ITEM NewSaveWdsl.Set_State(msoButtonUp); NewSaveWdsl.Set_Parameter(pWebServiceURL); end; end; end; except ShowMessage('创建菜单失败'); Abort; end;现在是用VBA里面的宏来响应点击事件的 但是VBA的宏提交不好用 所以现在希望能执行delphi代码
 
灾害兄 希望能帮我解决这个问题 小弟不甚感激 小弟基础较差 还望指教
 
留下email我发给你
 
277792752@qq.com 还有个问题 浪人情哥兄希望能回答 就是当我打开word的时候 可以加参数 例如:在命令提示符里面输入 C:/123.DOC /A 那word就以安全模式打开了123.doc文档 如何用wordapplication来打开word的时候 也能加载参数呢?
 
可以的,我给你的例子对于各参数有详细说明
 
大哥 你发过邮件了吗?
 
已经发送,请查收
 
大哥你怎么早不发呢 不过word的安全模式打开还是没有找到参数
 
多人接受答案了。
 
其实是一个很简单的问题,看你挂了那么多天,所以才给你写了个例子
 
关键以前也就是对delphi 写过一些简单应用 没写过这么样的 请问大哥原来是怎么学的呢 我身边的程序员一般就是操作数据库而已
 

Similar threads

回复
0
查看
815
不得闲
D
回复
0
查看
2K
DelphiTeacher的专栏
D
D
回复
0
查看
1K
DelphiTeacher的专栏
D
D
回复
0
查看
1K
DelphiTeacher的专栏
D
后退
顶部