1.定義一些全局變量
Dim As ’代表工具欄的變量
Dim As ’代表菜單的變量
Dim As ’代表菜單項和按鈕的變量
2.編制生成工具欄和菜單的子程序
Sub ()’創建工具欄和菜單并設置屬性的子程序
’調用刪除工具欄和菜單的子程序
Set = ..Add("")’新建工具欄excel工具欄無法使用，“”代表工具欄的名稱
Set = ..Add(Type:=, ID:=1)’在工具欄上新建下拉菜單，“ID:=1”代表該工具欄的功能由用戶自定義，下同
With ’設置下拉菜單的屬性
. = "風格切換"’設置標題
. = True’設置分組
End With
Set = ..Add(Type:=, ID:=1)’新建菜單項，下同
With ’設置菜單項的屬性，下同
. = "標準風格"
. = True
. = ""’設置單擊菜單項執行的子程序名稱
End With
Set = ..Add(Type:=, ID:=1)’新建其他的菜單項，并設置屬性
With
. = "簡單風格"
. = True
. = ""
End With
Set = ..Add(Type:=, ID:=1)
With
. = "繪圖和制表風格"
. = True
. = ""
End With
Set = ..Add(Type:=, ID:=1)’新建工具欄按鈕
With ’設置按鈕的屬性
. = "關于"
.Style = ion
. = 984
. = ""
End With
With ’設置工具欄的屬性
. = True’工具欄可視
. = True’工具欄可用
. = ’工具欄置頂
End With
Set = .("Menu Bar")..Add(Type:=, ID:=1)’在Word XP的主菜單中新建菜單，“Menu Bar”代表Word XP主菜單的名稱
With ’設置新建菜單的屬性
. = "風格切換"
End With
Set = ..Add(Type:=, ID:=1)’在新建菜單中添加菜單項excel工具欄無法使用，下同
With ’設置新建菜單項的屬性，下同
. = "標準風格"
. = True
. = ""
End With
Set = ..Add(Type:=, ID:=1)’新建其他的菜單項，并設置屬性
With
. = "簡單風格"
. = True
. = ""
End With
Set = ..Add(Type:=, ID:=1)
With
. = "繪圖和制表風格"
. = True
. = ""
End With
End Sub
3.編制刪除工具欄和菜單的子程序
Sub ()’刪除工具欄和菜單的子程序
Dim As ’定義臨時工具欄變量
On Error Next’該語句用于忽略錯誤
.("Menu Bar").Reset’重新設置Word XP的主菜單，即刪除新建的菜單
For Each In .’通過“For Each…Next”語句遍歷Word XP所有的工具欄
If .name = "" Then’如名稱和新建的工具欄相同
. = False’設置為不可視
.’刪除該工具欄
End If
Next
End Sub
