用VBA自定义WORD菜单和工具栏

用VBA自定义WORD菜单和工具栏，实现多风格界面 使用一个包含VBA代码的Word模板文件，通过“加载”方式直接运行，运行后将在 Word XP的主界面中新增菜单和工具栏，并提供了几套适合不同工作环境的界面布局，单击相应菜单即可实现不同风格界面布局的切换。 标准风格：显示主菜单栏以及常用、格式两个工具栏，并将文本编辑区设置为“蓝底白字”。 简单风格：仅显示主菜单栏和程序新建的工具栏，并将文本编辑区恢复为“白底黑字”，如图 1所示。单击工具栏上的按钮，则会显示对话框。 绘图和制表风格：显示主菜单栏和常用、格式、绘图、图片、符号栏以及表格和边框工具栏等，并将文本编辑区恢复为“白底黑字”。 多风格界面的实现方法： 一、创建工具栏和菜单的相关知识： 1.CommandBars集合 Office软件中，每个软件所有的工具栏均可用该集合来代表，该集合可通过名称或索引号来指定菜单栏或工具栏，如“CommandBars("Formatting")”，即通过名称“Formatting”指定了“格式工具栏”。Add方法用于新建工具栏，并返回 CommandBar 对象。 2.CommandBar对象 该对象代表工具栏，新建工具栏的控件均以该对象为载体，是 VBA工具栏开发的核心对象，其常用方法和属性如下： Position属性：用于设置工具栏的位置，可通过VBA常量将工具栏的位置设置为置顶、居左、居右、置下或浮动。 Visible属性：用于设置工具栏是否可见。 Enabled属性：用于设置工具栏是否可用。 Reset方法：将内置工具栏的设置重置为默认设置，删除其中的自定义控件，在恢复软件原有工具栏或菜单时非常有用。 3.CommandBarPopup 对象 该对象代表工具栏中的一个弹出式控件，其实Office软件的菜单也可理解为一个弹出式的控件，而菜单栏可以视为“另类”的工具栏。因此，通过该对象即可添加菜单栏，方法和添加工具栏类似。 4.CommandBarButton对象 该对象代表工具栏的按钮控件，是常用的工具栏二次开发控件，其常用方法和属性如下： OnAction属性：用于设置VBA代码过程名（该代码过程不可使用参数），该过程在单击按钮后运行。 Style属性：用于设置工具栏按钮的显示方式，可通过 VBA常量进行设置。 FaceId属性：用于设置工具栏按钮的图标编号，即设置工具栏按钮的外观。自定义图标的工具栏按钮，其FaceId属性值需设置为0。 BeginGroup属性：用于设置控件是否分组显示。 5.CommandBarComboBox对象 该对象代表工具栏中的组合框、下拉框或文本框控件，也是常用的工...