各位大哥帮帮忙吧 要死了 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

Ray
[转]终于可以发布Delphi下收点OSGI精髓皮毛而设计的插件框架WisdomPluginFramework
回复
4
查看
4K
chlkuei
C
Y
动态生成菜单后，怎样把单击事件赋给每一个子菜单。(100分)
回复
15
查看
619
liwens
L
K
关于添加资源管理器右键菜单(200分求救) (200分)
2 3
回复
43
查看
820
Pc 狂迷
P
S
请教高手：动态载入DLL插件自动增加菜单的问题！！(150分)
回复
6
查看
158
lynu
L
B
关于在word中添加按钮时遇到的问题？(100分)
回复
13
查看
308
bain
B
后退
顶部