當(dāng)選區(qū)的分欄數(shù)為1時(shí)設(shè)置“頁面設(shè)置”按鈕可用，其他兩個(gè)按鈕不可用；當(dāng)選區(qū)的分欄數(shù)為2時(shí)設(shè)置“主觀題2欄設(shè)計(jì)”按鈕可用，其他兩個(gè)按鈕不可用；當(dāng)選區(qū)的分欄數(shù)為3時(shí)設(shè)置“主觀題3欄設(shè)計(jì)”按鈕可用，其他兩個(gè)按鈕不可用；當(dāng)選區(qū)的分欄數(shù)為3時(shí)設(shè)置“主觀題3欄設(shè)計(jì)”按鈕可用，其他兩個(gè)按鈕不可用；當(dāng)選區(qū)的分欄數(shù)為大于3時(shí)，三個(gè)按鈕均不可用。
'* ＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋
'* Created By BANGONG@ExcelHome 2007-7-21 6:53:05
'僅測(cè)試于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:="答題卡設(shè)計(jì)工具欄")
    Set Butt1 = tBar.Controls.Add(Type:=msoControlButton)
    With Butt1
        .Caption = "頁面設(shè)計(jì)"
        .Style = msoButtonCaption
        .OnAction = "mySub"
    End With
    Set Butt2 = tBar.Controls.Add(Type:=msoControlButton)
    With Butt2
        .Caption = "主觀題2欄設(shè)計(jì)"
        .Style = msoButtonCaption
        .OnAction = "mySub"
    End With