Word2003 通用模板--自定义内置按钮（宏）v2.3

413191246se

* 原始默认的 Word2003 通用模板，在使用的时候有时感到很不方便，过去我一直是手工定义之，现在可以在任何某天，在原始默认的通用空白模板 Normal.dot 中用宏来定义添加内置命令按钮相应工具栏上，大大方便工作。仅仅是添加了部分内置命令按钮，就会有很好的效果，大家不妨试试（这还不算宏按钮）。
* 建议：运行本宏一次，然后可以删除之，以节省内存。以后使用新模板时再使用一次即可。
* 更新：添加了工具栏重置语句（可以不必重新生成 Normal.dot 了，直接用本宏），及自定义《F5：保存》/《F6：关闭》/《Alt+F12：录制宏》快捷键/热键。使用本宏后按 F5 就保存文档，F6 关闭文档，按 Alt+F12 录制新宏（最后一个按钮：多页，建议放到工具栏的最右边，靠边，这样好用，用鼠标点击它斜向下拖动即可）。

*Word2003通用模板Normal.dot自定义内置按钮（宏）v2.3 代码：

1. Sub 自定义内置按钮()
   
2. '重置工具栏
   
3.     CommandBars("Standard").Reset
   
4.     CommandBars("Formatting").Reset
   
5.     CommandBars("Tables and Borders").Reset
   
6.     CommandBars("Full Screen").Reset
   
7. 
   
8. '常用工具栏
   
9.     CommandBars("Standard").Controls.Add Type:=msoControlButton, ID:=4 '打印
   
10.     CommandBars("Standard").Controls.Add Type:=msoControlButton, ID:=141 '查找
    
11.     CommandBars("Standard").Controls.Add Type:=msoControlButton, ID:=7391 '标尺
    
12.     CommandBars("Standard").Controls.Add Type:=msoControlButton, ID:=247 '页面设置
    
13.     CommandBars("Standard").Controls.Add Type:=msoControlButton, ID:=3462 '分页
    
14.     CommandBars("Standard").Controls.Add Type:=msoControlButton, ID:=809 '剪贴板
    
15.     CommandBars("Standard").Controls.Add(Type:=msoControlButton, ID:=2823, Parameter:="宋体").Caption = "宋"
    
16.     CommandBars("Standard").Controls.Add(Type:=msoControlButton, ID:=2823, Parameter:="仿宋_GB2312").Caption = "仿"
    
17.     CommandBars("Standard").Controls.Add(Type:=msoControlButton, ID:=2823, Parameter:="楷体_GB2312").Caption = "楷"
    
18.     CommandBars("Standard").Controls.Add(Type:=msoControlButton, ID:=2823, Parameter:="黑体").Caption = "黑"
    
19.     CommandBars("Standard").Controls.Add(Type:=msoControlButton, ID:=2823, Parameter:="Times New Roman").Caption = "英"
    
20. 
    
21. '格式工具栏
    
22.     CommandBars("Formatting").Controls.Add Type:=msoControlButton, ID:=62 '增大字体
    
23.     CommandBars("Formatting").Controls.Add Type:=msoControlButton, ID:=63 '缩小字体
    
24.     CommandBars("Formatting").Controls.Add Type:=msoControlButton, ID:=57 '上标
    
25.     CommandBars("Formatting").Controls.Add Type:=msoControlButton, ID:=58 '下标
    
26.     CommandBars("Formatting").Controls.Add(Type:=msoControlButton, ID:=2226).FaceId = 219 '标准字符间距
    
27.     CommandBars("Formatting").Controls.Add Type:=msoControlButton, ID:=699 '减少段落间距
    
28.     CommandBars("Formatting").Controls.Add Type:=msoControlButton, ID:=698 '增加段落间距
    
29.     CommandBars("Formatting").Controls.Add(Type:=msoControlButton, ID:=756).FaceId = 274 '全选
    
30.     CommandBars("Formatting").Controls.Add Type:=msoControlButton, ID:=54 '单倍行距
    
31.     CommandBars("Formatting").Controls.Add Type:=msoControlButton, ID:=55 '1.5倍行距
    
32.     CommandBars("Formatting").Controls.Add Type:=msoControlButton, ID:=56 '两倍行距
    
33.     CommandBars("Formatting").Controls.Add(Type:=msoControlButton, ID:=178).Style = msoButtonIcon '全屏
    
34.     CommandBars("Formatting").Controls.Add Type:=msoControlButton, ID:=6 '页宽
    
35.     CommandBars("Formatting").Controls.Add Type:=msoControlButton, ID:=5 '单页
    
36.     CommandBars("Print Preview").Controls(4).Copy Bar:=CommandBars("Formatting") '多页
    
37. 
    
38. '表格和边框工具栏
    
39.     CommandBars("Tables and Borders").Controls.Add Type:=msoControlButton, ID:=3918 '中部居中
    
40.     CommandBars("Tables and Borders").Controls.Add Type:=msoControlButton, ID:=3681 '上方插入行
    
41.     CommandBars("Tables and Borders").Controls.Add Type:=msoControlButton, ID:=3683 '下方插入行
    
42.     CommandBars("Tables and Borders").Controls.Add Type:=msoControlButton, ID:=293 '删除行
    
43.     CommandBars("Tables and Borders").Controls.Add Type:=msoControlButton, ID:=3685 '左侧插入列
    
44.     CommandBars("Tables and Borders").Controls.Add Type:=msoControlButton, ID:=3687 '右侧插入列
    
45.     CommandBars("Tables and Borders").Controls.Add Type:=msoControlButton, ID:=294 '删除列
    
46.     CommandBars("Tables and Borders").Controls.Add Type:=msoControlButton, ID:=3908 '根据窗口调整表格
    
47.     CommandBars("Tables and Borders").Controls.Add(Type:=msoControlButton, ID:=803).FaceId = 59 '选定表格
    
48.     CommandBars("Tables and Borders").Controls.Add(Type:=msoControlButton, ID:=3704).FaceId = 276 '表格属性
    
49.     CommandBars("Tables and Borders").Controls.Add(Type:=msoControlButton, ID:=805).FaceId = 502 '标题行重复
    
50.     CommandBars("Tables and Borders").Controls.Add(Type:=msoControlButton, ID:=808).FaceId = 531 '拆分表格
    
51.     CommandBars("Tables and Borders").Controls.Add(Type:=msoControlButton, ID:=332).FaceId = 1977 '表格转文本
    
52.     CommandBars("Tables and Borders").Controls.Add(Type:=msoControlButton, ID:=3679).FaceId = 358 '删除表格
    
53. 
    
54. '全屏显示工具栏
    
55.     CommandBars("Full Screen").Controls.Add Type:=msoControlButton, ID:=6 '页宽
    
56.     CommandBars("Full Screen").Controls.Add Type:=msoControlButton, ID:=5 '单页
    
57.     CommandBars("Print Preview").Controls(4).Copy Bar:=CommandBars("Full Screen") '多页
    
58. 
    
59. '自定义快捷键
    
60.     CustomizationContext = NormalTemplate
    
61.     KeyBindings.Add KeyCode:=BuildKeyCode(wdKeyF5), KeyCategory:=wdKeyCategoryMacro, Command:="FileSave"
    
62.     KeyBindings.Add KeyCode:=BuildKeyCode(wdKeyF6), KeyCategory:=wdKeyCategoryMacro, Command:="FileClose"
    
63.     KeyBindings.Add KeyCode:=BuildKeyCode(wdKeyF12, wdKeyAlt), KeyCategory:=wdKeyCategoryMacro, Command:="ToolsRecordMacroToggle"
    
64. End Sub

复制代码

413191246se

* 补充：忘了说了，这是本人家里电脑XP/WORD2003，如果是WIN7（单位是），仿宋/楷体两种字体应该把代码中的 Parameter:="仿宋_GB2312" 改为 Parameter:="仿宋"，即去掉“_GB2312"，楷体也要去掉。* 添加自定义内置按钮后，可以在《常用》/《格式》/《表格和边框》（画一个表格把光标放在表格中再观看）/《全屏显示》工具栏上看到添加的按钮。

413191246se

顶以更新！！！

413191246se

顶以更新！！！

413191246se

顶以更新！！！

413191246se

顶以更新！！！