新手请教：怎样在Word的工具栏加一个按钮？

freeduy · 发表于 2002-3-25 11:45

1.就像金山词霸那样 2.我已经加了一个，但是执行不了任何程序

tof · 发表于 2002-3-25 12:56

不太明白你的意思，不过添加的控件需要指定相应的VBA代码才可以。

freeduy · 发表于 2002-3-25 13:22

我用Com加载项添加了一个按钮，但是不能执行程序，查资料得知执行的程序要添加在按钮的“OnAction”属性后面，如下： btn.onaction="c:/windows/cal.exe" dan但是执行不了,ai.......

tof · 发表于 2002-3-25 13:42

如果你是想自定义一个新的工具栏，WORD不太清楚估计和EXCEL差不多。不过只是想执行某个宏的话，建议添加一个命令控件，右键－查看代码，就可以编辑VBA的代码了。

freeduy · 发表于 2002-3-26 14:55

可惜，上将给出的代码只能放在Word/Excel等应用程序里使用，如果把上述代码放在VB做的Com加载项里，Word启动时就会报类似“***宏不存在***”的错误，MSDN里关于OnAction的用法有二： 1.OnAction＝“ShellCal”，这时ShellCal应该是一个宏名 2.OnAction＝“!”,好像这样就可以执行别的程序，可是我一直没有弄明白用第二种方法怎样实现像“Shell ("c:\winnt\notepad.exe")一样的功能，盼，指点迷津！

wgl · 发表于 2002-4-5 11:54

我也碰到和上面哥们一样的情况，不过我更惨，我把代码放在Word应用程序里边都不行，我试着定义按钮事件，当VBA运行时，按下按就能执行对应的函数，可是这不是我想要的。我也希望将代码放在VB做的程序里，运行之后就在Word中加入按钮了，而且按下按钮能执行相应的程序。高手救命呀！

惊叹不已 · 发表于 2002-4-5 15:20

原来是在VB中往Word增加按钮，哈哈，看看"怎样用开发语言在Word中建宏"这个贴子吧 http://club.excelhome.net/dispbbs.asp?boardID=21&RootID=6335&ID=6335

惊叹不已 · 发表于 2002-3-25 20:57

下列代码在工具栏新建一个按钮,单击这个按钮可以运行记事本. Sub createbutton() Set myBar = ActiveDocument.CommandBars(3) Set myControl = myBar.Controls _ .Add(Type:=msoControlButton) With myControl .FaceId = 2 .OnAction = "shellcal" End With myBar.Visible = True End Sub Sub shellcal() Shell ("c:\winnt\notepad.exe") End Sub

		自动登录	找回密码
密码			免费注册