1、添加一个命令按钮

Sub AddCommandBar()
'命令
Dim cbar  As CommandBarButton


Set cbar = CommandBars("Standard").Controls("临时按钮")

If Not cbar Is Nothing Then
    Exit Sub
End If

    With CommandBars("Standard")
        .Protection = msoBarNoProtection
        
        With .Controls.Add(msoControlButton, Before:=3)
            .DescriptionText = "QuitWithoutSave"
            .Caption = "临时按钮"
            .TooltipText = "临时按钮"
            .Style = msoButtonIconAndCaption
            .OnAction = "QuitWithoutSave"
        End With
    
    End With
End Sub

Private Sub QuitWithoutSave()
    MsgBox "激活事件:临时按钮"
End Sub

CommandBars("Standard").Controls("临时按钮").Delete

3   修改word命令

'修改word命令
Sub FileSave()

MsgBox ActiveDocument.Name

If ActiveDocument.Saved = False Then
    ActiveDocument.Save
End If

End Sub


Sub FileSaveAs()
    MsgBox "您不能另存文档"
End Sub

 4、删除顶端菜单

 CommandBars.ActiveMenuBar.Controls("Custom").Delete