如何在微软的WORD程序里面添加一个按钮或菜单？

Question

一定可以实现的，这个我以前见过的，当时没有这相需要，没有细看，
等我去找一下！

Answer 1

很简单啦，编写一段宏。
然后在“自定义工具栏”中设置即可！

Answer 2

例子:
        Dim NewMenuItem As CommandBarButton
        Dim XlApp As Object        Set XlApp = CreateObject("Excel.Application")
        XlApp.CommandBars("File").Reset
        XlApp.CommandBars("Edit").Reset
        
        '增加菜单"报表定义"
        Set NewMenuItem = XlApp.CommandBars("File").Controls.Add(Type:=msoControlButton, Before:=3)
        With NewMenuItem
                .Style = msoButtonIconAndCaption
                .OnAction = "Func报表管理"   '执行该菜单功能的宏名
                .Caption = "报表管理"
                .Enabled = True
                .Tag = "报表管理"
        End With
再在Excel的启动宏中定义一个函数即可,函数名为"Func报表管理"