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

N

newzhq

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-06-01

• #1

请教个问题：delphi控制打开word的时候动态添加一个菜单 并动态添加菜单的点击事件来执行delphi中写的一段过程 怎么来实现呀 希望各位富翁能贴出代码或给出例子其余已实现 主要问题：动态的添加菜单的点击事件,当按钮点击时来执行delphi中的一段代码。

 

N

newzhq

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-06-01

• #2

各位大哥帮帮忙 有钱的捧个钱场 没钱的捧个人场呀

 

L

L-M-delphi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-06-01

• #3

好像是addin，我也不是很懂，希望高手出来指点

 

地

地质灾害

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-06-01

• #4

把添加菜单的代码贴出来

 

N

newzhq

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-06-01

• #5

//创建菜单项 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代码

 

N

newzhq

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-06-01

• #6

灾害兄 希望能帮我解决这个问题 小弟不甚感激 小弟基础较差 还望指教

 

N

newzhq

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-06-01

• #7

自己顶

 

N

newzhq

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-06-03

• #8

再顶

 

浪

浪人情哥

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-06-03

• #9

留下email我发给你

 

N

newzhq

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-06-03

• #10

277792752@qq.com 还有个问题 浪人情哥兄希望能回答 就是当我打开word的时候 可以加参数 例如：在命令提示符里面输入 C:/123.DOC /A 那word就以安全模式打开了123.doc文档 如何用wordapplication来打开word的时候 也能加载参数呢？

 

浪

浪人情哥

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-06-03

• #11

可以的,我给你的例子对于各参数有详细说明

 

N

newzhq

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-06-03

• #12

大哥 你发过邮件了吗？

 

浪

浪人情哥

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-06-03

• #13

已经发送,请查收

 

N

newzhq

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-06-03

• #14

大哥你怎么早不发呢 不过word的安全模式打开还是没有找到参数

 

N

newzhq

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-06-03

• #15

多人接受答案了。

 

浪

浪人情哥

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-06-03

• #16

其实是一个很简单的问题,看你挂了那么多天,所以才给你写了个例子

 

N

newzhq

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-06-03

• #17

关键以前也就是对delphi 写过一些简单应用 没写过这么样的 请问大哥原来是怎么学的呢 我身边的程序员一般就是操作数据库而已