请教关于用VB6制作Word加载项的问题

在设计器中为Word创建菜单栏命令，OnAction属性如何指向myaddin窗体和模块，类模块里的宏？ 而不是word模板里的宏？   经验证，以下代码
sub 宏1 （）
msgbox "hhhhh"
end sub    ‘必须放到word模板里才会被执行，能直接放到vb代码里吗？请老师指点一下。


附：设计器Word创建菜单栏命令代码
Private Sub AddinInstance_OnConnection(ByVal Application As Object, ByVal ConnectMode As AddInDesignerObjects.ext_ConnectMode, ByVal AddInInst As Object, custom() As Variant)
On Error Resume Next
Do
Application.CommandBars("Menu Bar").Controls("主菜单").Delete
Loop While Application.CommandBars("Menu Bar").Controls("主菜单") = False
       Set myMenuBar = CommandBars.ActiveMenuBar   '定义一个新菜单
      Set newMenu = myMenuBar.Controls.Add(Type:=msoControlPopup, Temporary:=True)
     newMenu.Caption = "主菜单"
        '定义一个新菜单命令
      Set myMenuCommand = newMenu.Controls.Add(Type:=msoControlButton, Id:=1)
      With myMenuCommand
            .Caption = "命令"
             .OnAction = 宏1
             End With
End Sub

读了这个，明白许多。http://club.excelhome.net/viewth ... p%3Bfilter%3Ddigest