如何在Word 2016“加载项”中的“菜单命令”中添加宏按钮？

tangqingfu

请教如何在Word 2016中将宏按钮添加到“加载项”中的“菜单命令”中？手动操作或运行代码均可

413191246se

* 唐兄：我也不大会菜单的自定义，但我在 Word2007 下实现了你的要求，请试试吧！

1. Sub aaaa自定义_加载项_添加菜单_添加菜单命令按钮()
   
2.     Dim i&, arr
   
3. 
   
4.     With CommandBars("Standard").Controls
   
5.         .Add(Type:=msoControlPopup).Caption = "辅助"
   
6.     End With
   
7. 
   
8.     With CommandBars("Standard").Controls("辅助").Controls
   
9.         arr = Array("红色", "蓝色", "绿色") '本行数组可扩展，每个字符都是一个宏！
   
10.         For i = 0 To UBound(arr)
    
11.             With .Add(Type:=msoControlButton)
    
12.                 .Caption = arr(i)
    
13.                 .OnAction = arr(i)
    
14.             End With
    
15.         Next i
    
16.     End With
    
17. End Sub
    
18. Sub 红色()
    
19.     Selection.WholeStory
    
20.     Selection.Font.Size = 42
    
21.     Selection.Font.Color = wdColorRed
    
22.     Selection.HomeKey 6
    
23. End Sub
    
24. Sub 蓝色()
    
25.     Selection.WholeStory
    
26.     Selection.Font.Size = 26
    
27.     Selection.Font.Color = wdColorBlue
    
28.     Selection.HomeKey 6
    
29. End Sub
    
30. Sub 绿色()
    
31.     Selection.WholeStory
    
32.     Selection.Font.Size = 36
    
33.     Selection.Font.Color = wdColorGreen
    
34.     Selection.HomeKey 6
    
35. End Sub

复制代码

tangqingfu

期待还有其他方法实现在Word 2016中将宏按钮添加到“加载项”中的“菜单命令”中？手动操作或运行代码均可