自定义工具栏

当选区的分栏数为1时设置“页面设置”按钮可用，其他两个按钮不可用；当选区的分栏数为2时设置“主观题2栏设计”按钮可用，其他两个按钮不可用；当选区的分栏数为3时设置“主观题3栏设计”按钮可用，其他两个按钮不可用；当选区的分栏数为3时设置“主观题3栏设计”按钮可用，其他两个按钮不可用；当选区的分栏数为大于3时，三个按钮均不可用。
'* ＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋
'* Created By BANGONG@ExcelHome 2007-7-21 6:53:05
'仅测试于System: Windows NT Word: 11.0 Language: 2052
'№ 0244^The Code CopyIn [ThisDocument-ThisDocument]^'
'* －－－－－－－－－－－－－－－－－－－－－－－－－－－－－
Dim Butt1 As CommandBarControl, Butt2 As CommandBarControl, Butt3 As CommandBarControl
Private Sub Document_Open()
    Dim tBar As CommandBar
    Application.CustomizationContext = ActiveDocument
    Set tBar = Application.CommandBars.Add(Name:="答题卡设计工具栏")
    Set Butt1 = tBar.Controls.Add(Type:=msoControlButton)
    With Butt1
        .Caption = "页面设计"
        .Style = msoButtonCaption
        .OnAction = "mySub"
    End With
    Set Butt2 = tBar.Controls.Add(Type:=msoControlButton)
    With Butt2
        .Caption = "主观题2栏设计"
        .Style = msoButtonCaption
        .OnAction = "mySub"
    End With

    Set Butt3 = tBar.Controls.Add(Type:=msoControlButton)
    With Butt3
        .Caption = "主观题3栏设计"
        .Style = msoButtonCaption
        .OnAction = "mySub"
    End With
    tBar.Visible = True
End Sub
'----------------------
Sub mySub()
    Dim strCaption As String
    strCaption = Application.CommandBars.ActionControl.Caption
    Select Case strCaption
    Case "页面设计"
        Butt2.Enabled = False
        Butt3.Enabled = False
        '你的代码你的窗体你的过程
    Case "主观题2栏设计"
        Butt1.Enabled = False
        Butt3.Enabled = False
        '你的代码你的窗体你的过程
    Case "主观题3栏设计"
        Butt1.Enabled = False
        Butt2.Enabled = False
        '你的代码你的窗体你的过程
    End Select
    Butt1.Enabled = True
    Butt2.Enabled = True
    Butt3.Enabled = True
End Sub