在word中动态创建菜单并处理菜单点击事件的代码--

sub create_menu()
    const menu_name as string = "my new main_menu"
    dim before_number as integer
    dim x as integer

    on error resume next
    commandbars("menu bar").controls(menu_name).delete '删除最后菜单
    before_number = commandbars("menu bar").controls.count + 1

    err.clear
    x = 1        '删除历史自定义菜单
    do until err.number <> 0
        commandbars("custom popup " & x).delete
        x = x + 1
    loop
    err.clear
   
    commandbars("menu bar").controls.add type:=msocontrolpopup, before:=before_number
    commandbars("menu bar").controls(before_number).caption = menu_name
    for x = 1 to 10 '这里可以加入数据库的访问代码
        commandbars("custom popup 1").controls.add type:=msocontrolbutton, before:=x
        commandbars("custom popup 1").controls(x).caption = "吸海垂虹" & x 
        commandbars("custom popup 1").controls(x).onaction = "newmacros.proc_menu"
    next

end sub

sub proc_menu() '这里可以加入菜单的处理代码
    msgbox  commandbars.actioncontrol.caption 
end sub