如何在office 2007/10/13 中轻松恢复 Office 2003 经典菜单

办公教程导读

收集整理了【如何在office 2007/10/13 中轻松恢复 Office 2003 经典菜单】办公软件教程，小编现在分享给大家，供广大互联网技能从业者学习和参考。文章包含2066字，纯文字阅读大概需要3分钟。

办公教程内容图文

'—————————————————————
' 2003 及以后版本恢复经典菜单
'—————————————————————

'—恢复经典菜单—
Sub AddClassicMenu()
On Error Resume Next
Dim xMenuBar As CommandBar
Dim xStandardBar As CommandBar
Dim xFormattingBar As CommandBar
Dim I As Long, J As Variant
'生成 2003 菜单栏
Application.CommandBars("MenuBar").Delete
Set xMenuBar = Application.CommandBars.Add("MenuBar")
xMenuBar.Visible = True
For Each J In Array(1, 4, 8, 10, 13, 18, 23, 27, 28)
If Application.CommandBars("Built-in Menus").Controls(J).BuiltIn Then
Call Application.CommandBars("Built-in Menus").Controls(J).Copy(xMenuBar)
End If
Next
'生成 2003 格式工具栏
Application.CommandBars("FormattingBar").Delete
Set xFormattingBar = Application.CommandBars.Add("FormattingBar")
xFormattingBar.Visible = True
For I = 1 To Application.CommandBars("Formatting").Controls.Count
If Application.CommandBars("Formatting").Controls(I).BuiltIn Then
Application.CommandBars("Formatting").Controls(I).Copy xFormattingBar
End If
Next
'生成 2003 标准工具栏
Application.CommandBars("StandardBar").Delete
Set xStandardBar = Application.CommandBars.Add("StandardBar")
xStandardBar.Visible = True
For I = 1 To Application.CommandBars("Standard").Controls.Count
If Application.CommandBars("Standard").Controls(I).BuiltIn Then
Application.CommandBars("Standard").Controls(I).Copy xStandardBar
End If
Next
End Sub

'—删除经典菜单—
Sub DeleteClassicMenu()
On Error Resume Next
Application.CommandBars("MenuBar").Delete
Application.CommandBars("FormattingBar").Delete
Application.CommandBars("StandardBar").Delete
End Sub

办公教程总结

以上是为您收集整理的【如何在office 2007/10/13 中轻松恢复 Office 2003 经典菜单】办公软件教程的全部内容，希望文章能够帮你了解办公软件教程如何在office 2007/10/13 中轻松恢复 Office 2003 经典菜单。
如果觉得办公软件教程内容还不错，欢迎将网站推荐给好友。