[5分]除Access 2003之外的其他版本如何直接调用菜单？

Function GetInstalledOfficeVersion() As String
    On Error Resume Next
    DoEvents
    Dim WD
    Dim OfficeVer As String
    OfficeVer = 0
    GetInstalledOfficeVersion = ""
    Set WD = CreateObject("Word.Application.8")
    OfficeVer = CStr(WD.Version)
    WD.Quit
    If Not WD Is Nothing Then Set WD = Nothing
    If InStr(OfficeVer, "8") <> 0 Then
        GetInstalledOfficeVersion = "97"
    ElseIf InStr(OfficeVer, "9") <> 0 Then
        GetInstalledOfficeVersion = "2000"
    ElseIf InStr(OfficeVer, "10") <> 0 Then
        GetInstalledOfficeVersion = "2002"
    ElseIf InStr(OfficeVer, "11") <> 0 Then
        GetInstalledOfficeVersion = "2003"
    ElseIf InStr(OfficeVer, "12") <> 0 Then
        GetInstalledOfficeVersion = "2007"
    ElseIf InStr(OfficeVer, "14") <> 0 Then
        GetInstalledOfficeVersion = "2010"
    ElseIf InStr(OfficeVer, "15") <> 0 Then
        GetInstalledOfficeVersion = "2013"
    ElseIf InStr(OfficeVer, "16") <> 0 Then
        GetInstalledOfficeVersion = "2016"
    End If
    If Err.number = 424 Then
        Err.Clear
        GetInstalledOfficeVersion = "没有安装Microsoft Office"
    ElseIf GetInstalledOfficeVersion = "" Then
        GetInstalledOfficeVersion = "未识别的版本:" & OfficeVer
    End If
End Function

通过以上代码可以获得office的版本号

当需要直接打开宏设置以及压缩数据库时，可以使用如下的代码。

 Select Case GetInstalledOfficeVersion
        Case 2003
            CommandBars("menu bar").Controls("工具(&T)").Controls("宏(&M)").Controls("安全性(&S)...").Execute
        Case Else
            MsgBox "无法执行设置宏，此功能只适于2003，当前Access版本为" & GetInstalledOfficeVersion & "，请手工设置！", , "错误！"
        End Select
    

        Select Case GetInstalledOfficeVersion
        Case 2003
            CommandBars("menu bar").Controls("工具(&T)").Controls("数据库实用工具(&D)").Controls("压缩和修复数据库(&C)...").accDoDefaultAction
        Case Else
            MsgBox "无法执行压缩和修复数据库，此功能只适于2003，当前Access版本为" & GetInstalledOfficeVersion & "！", , "错误！"
        End Select

现在问题来了， Case 2007 Case2010 Case1013 Case2016如何写？