微软在 2006 年推出了 Office 2007, 这个新的Office 系统使用新的 Ribbon 功能区取代了 Office 2003 中的多级弹出菜单。这个新的界面和老界面相比油了翻天覆地的变化，不过老实说来这个新的界面的确有更高的效率。VWWoffice教程网

不过部分刚从 2003 转过来的朋友对这个新的界面感到不适应，无从下手，不能很快的找到指定的命令和功能。针对这个问题网络上出现了很多辅助的工具，比如本站提供的：Classic Menu for Office 2010 / 2013 等等。但是部分朋友可能觉得要使用工具来实现还是比较太麻烦，有没有简单的方法呢？ 有的，我们这里就提供一个简单方便的办法--只用几句代码就可以恢复经典的 2003 菜单和工具栏(我把代码制作成了加载宏，需要的朋友可以直接下载)。VWWoffice教程网

'---------------------------------------------------------------VWWoffice教程网

' 2003 及以后版本恢复经典菜单VWWoffice教程网

'---------------------------------------------------------------VWWoffice教程网

'---恢复经典菜单---VWWoffice教程网

Sub AddClassicMenu()VWWoffice教程网

On Error Resume NextVWWoffice教程网

Dim xMenuBar As CommandBarVWWoffice教程网

Dim xStandardBar As CommandBarVWWoffice教程网

Dim xFormattingBar As CommandBarVWWoffice教程网

Dim I As Long, J As VariantVWWoffice教程网

'生成 2003 菜单栏VWWoffice教程网

Application.CommandBars("MenuBar").DeleteVWWoffice教程网

Set xMenuBar = Application.CommandBars.Add("MenuBar")VWWoffice教程网

xMenuBar.Visible = TrueVWWoffice教程网

For Each J In Array(1, 4, 8, 10, 13, 18, 23, 27, 28)VWWoffice教程网

If Application.CommandBars("Built-in Menus").Controls(J).BuiltIn ThenVWWoffice教程网

Call Application.CommandBars("Built-in Menus").Controls(J).Copy(xMenuBar)VWWoffice教程网

End IfVWWoffice教程网

NextVWWoffice教程网

'生成 2003 格式工具栏VWWoffice教程网

Application.CommandBars("FormattingBar").DeleteVWWoffice教程网

Set xFormattingBar = Application.CommandBars.Add("FormattingBar")VWWoffice教程网

xFormattingBar.Visible = TrueVWWoffice教程网

For I = 1 To Application.CommandBars("Formatting").Controls.CountVWWoffice教程网

If Application.CommandBars("Formatting").Controls(I).BuiltIn ThenVWWoffice教程网

Application.CommandBars("Formatting").Controls(I).Copy xFormattingBarVWWoffice教程网

End IfVWWoffice教程网

NextVWWoffice教程网

'生成 2003 标准工具栏VWWoffice教程网

Application.CommandBars("StandardBar").DeleteVWWoffice教程网

Set xStandardBar = Application.CommandBars.Add("StandardBar")VWWoffice教程网

xStandardBar.Visible = TrueVWWoffice教程网

For I = 1 To Application.CommandBars("Standard").Controls.CountVWWoffice教程网

If Application.CommandBars("Standard").Controls(I).BuiltIn ThenVWWoffice教程网

Application.CommandBars("Standard").Controls(I).Copy xStandardBarVWWoffice教程网

End IfVWWoffice教程网

NextVWWoffice教程网

End SubVWWoffice教程网

'---删除经典菜单---VWWoffice教程网

Sub DeleteClassicMenu()VWWoffice教程网

On Error Resume NextVWWoffice教程网

Application.CommandBars("MenuBar").DeleteVWWoffice教程网

Application.CommandBars("FormattingBar").DeleteVWWoffice教程网

Application.CommandBars("StandardBar").DeleteVWWoffice教程网

End SubVWWoffice教程网