时间:2020-07-08 15:47作者:admin来源:未知人气:607我要评论(0)
微软在 2006 年推出了 Office 2007, 这个新的Office 系统使用新的 Ribbon 功能区取代了 Office 2003 中的多级弹出菜单。这个新的界面和老界面相比油了翻天覆地的变化,不过老实说来这个新的界面的确有更高的效率。
不过部分刚从 2003 转过来的朋友对这个新的界面感到不适应,无从下手,不能很快的找到指定的命令和功能。针对这个问题网络上出现了很多辅助的工具,比如本站提供的:Classic Menu for Office 2010 / 2013 等等。但是部分朋友可能觉得要使用工具来实现还是比较太麻烦,有没有简单的方法呢? 有的,我们这里就提供一个简单方便的办法--只用几句代码就可以恢复经典的 2003 菜单和工具栏(我把代码制作成了加载宏,需要的朋友可以直接下载)。
'---------------------------------------------------------------
' 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
1文件名称 | 1下载链接 |
---|---|
2003经典菜单.zip | http://pan.baidu.com/s/1bnvSb9P |
相关阅读 Word文档怎么标记为最终状态石墨文档如何导入表格?office默认打开方式怎么改?如何在Word中将文档字体设置成微软雅黑Word中论文查重的具体操作方法Word中语音朗读文章的具体操作方法如何用Word进行简繁转换微软 Office 将上线 14 个 Excel 函数,用于协助操作文本和数组office激活和不激活有什么区别Office软件无法打开共享盘上的文件怎么办?关闭受保护的视图试试
热门文章 office2019+visio2019+project2019最新激活密钥和激活方法给大家推荐5款免费又好用的Office办公软件微软Office官方下载地址,附安装激活方法,正版办公软件microsoft office2021专业增强版密钥永久激活最新,万能office2021
最新文章
Word文档怎么标记为最终状态石墨文档如何导入表格?
office默认打开方式怎么改?如何在Word中将文档字体设置成微软雅黑Word中论文查重的具体操作方法Word中语音朗读文章的具体操作方法
人气排行 office2019+visio2019+project2019最新激活密钥和激活方法给大家推荐5款免费又好用的Office办公软件微软Office官方下载地址,附安装激活方法,正版办公软件microsoft office2021专业增强版密钥永久激活最新,万能office2021“你的许可证不是正版,并且你可能是盗版软件的受害者...”的解决office2013产品密钥25位最新–microsoft office professional ploffice 2010每次打开出现配置进度的解决办法全新office2019激活密钥分享给大家
盖楼回复X
(您的评论需要经过审核才能显示)
查看所有0条评论>>