Readygo技术搜索引擎 网络搜索 efish 2008-1-17 16:28:02

so easy, 送分...............

楼主dragon20（夜谈）2002-09-18 10:36:55 在 VB / 基础类 提问

我想在word中增加一个菜单a(在帮助前面),里面有两个菜单项(   a1,   a2),a1,a2分别弹出对话框a1,a2.......怎么实现???  
  (有代码   就给分)  
  问题点数：100、回复次数：12Top

1 楼penper（木头）回复于 2002-09-18 10:53:50 得分 0

难度～～Top

2 楼spring_y（蹭分也要蹭到一颗星）回复于 2002-09-18 11:12:22 得分 0

用VBA试试Top

3 楼ggto（没有猎枪的猎手）回复于 2002-09-18 11:14:26 得分 100

sub   addnewmenu()  
        dim   oaddcommandbar   as   commandbar  
        dim   oaddcommandpopup   as   commandbar  
        set   oaddcommandbar   =   commangbars("worksheet   menu   bar")  
        set   oaddcommandpopup   =   oaddcommandbar.controls.add(msocomtrolpopup,,,2)  
        with   oaddcommandpopup  
                    .caption="a"  
                with   .controls.add(mscontrolbutton)  
                          .caption="a1"  
                          .onaction="a1menu"  
                end   with  
   
                with   .controls.add(mscontrolbutton)  
                          .caption="a2"  
                          .onaction="a2menu"  
                end   with  
        end   with  
  end   sub  
   
  sub   a1menu()  
      msgbox   "you   click   is   a1"  
  end   sub  
   
  sub   a2menu()  
      msgbox   "you   click   is   a2"  
  end   subTop

4 楼make11111（孙少平）回复于 2002-09-18 11:27:26 得分 0

在word中加，你没问题吧Top

5 楼muniu（木牛）回复于 2002-09-18 11:39:56 得分 0

..upTop

6 楼dreamfan（改行不做程序员，回家种地。）回复于 2002-09-18 11:44:30 得分 0

高难度Top

7 楼dragon20（夜谈）回复于 2002-09-18 11:49:55 得分 0

to   ggto;  
                  with   oaddcommandpopup  
                    .caption="a"  
                with   .controls.add(mscontrolbutton)  
                          .caption="a1"  
                          .onaction="a1menu"  
                end   with  
  end   with  
  oaddcommandpopup   即commandBar对象   没有   Caption属性  
   
  Top

8 楼dragon20（夜谈）回复于 2002-09-18 13:25:02 得分 0

upTop

9 楼dragon20（夜谈）回复于 2002-09-18 16:34:25 得分 0

为什么     我的菜单点击   后word提示:  
      由于安全性设置,无法找到宏或宏被禁止  
  而我的安全性设置   是   低...........???????????????????Top

10 楼coolsky（★以德服人★）回复于 2002-09-18 17:21:02 得分 0

基本同意   ggto(没有猎枪的猎手)，Top

11 楼godblessu（上帝保佑）回复于 2002-09-18 17:39:29 得分 0

我试了  
  可以的  
  Top

12 楼dragon20（夜谈）回复于 2002-09-18 18:09:54 得分 0

http://www.csdn.net/expert/topic/1034/1034598.xml?temp=.1768915  
   
  此贴更详细,马上给分  
  Top