关于vb代码导入word的问题

Question

怎样用代码将vb代码添加到word宏中，就是用vb代码实现word宏中的导入代码功能

Answer 1

到底是要用宏来运行VB代码还是把宏转为VB代码？？

Answer 2

以下是我以前写得一段程序，是新建一个word文档，然后写入宏，再保存；
如果你的文档已经存在，先在程序中打开，再写入宏，再保存就行了。'1、启动word把 工具--宏--安全性--安全级 选择 低，
'          把 工具--宏--安全性--可靠发行商 勾选 信任对于“Visual Basic项目”的访问
'2、关闭word
'3、在c盘根目录下做一个叫 说明.htm 的文件
'4、本程序要先引用Microsoft Word 11.0 Object Library
'5、运行本程序，然后再用word打开c:\doc1.doc看看。
'6、windows操作系统如不在c:\windows下，请自己修改c:\windows\NOTEPAD.EXE路径和
'   c:\windows\explorer.exe c:\说明.htm路径
'7、寻找windows操作系统路径，可以用API来完成，这是另外一个话题了。Private Sub Command1_Click()
    
    Dim app As New Word.Application
    Dim doc As Word.Document
    Dim s1 As String, s2 As String
    app.Visible = False
    s1 = "Private Sub Document_Open()" & vbCr & _
         "    Dim iMenu As CommandBarPopup, MyMenu3 As CommandBarButton" & vbCr & _
         "    Dim MyMenu1 As CommandBarButton, MyMenu2 As CommandBarButton" & vbCr & _
         vbCr & _
         "    For Each iMenu In Application.CommandBars.ActiveMenuBar.Controls" & vbCr & _
         "        If iMenu.Caption = ""[我的软件名称](&I)"" Then" & vbCr & _
         "            Exit Sub" & vbCr & _
         "        End If" & vbCr & _
         "    Next" & vbCr & _
         vbCr & _
         "    Set iMenu = Application.CommandBars(""Menu Bar"").Controls.Add(Type:=msoControlPopup)" & vbCr & _
         "    iMenu.Caption = ""[我的软件名称](&I)""" & vbCr & _
         vbCr & _
         "    Set MyMenu1 = iMenu.CommandBar.Controls.Add(Type:=msoControlButton)" & vbCr & _
         "    MyMenu1.Caption = ""……运行软件""" & vbCr & _
         "    MyMenu1.OnAction = ""a""" & vbCr & _
         vbCr & _
         "    Set MyMenu2 = iMenu.CommandBar.Controls.Add(Type:=msoControlButton)" & vbCr & _
         "    MyMenu2.Caption = ""……操作帮助""" & vbCr & _
         "    MyMenu2.OnAction = ""b""" & vbCr & _
         vbCr & _
         "    Set MyMenu3 = iMenu.CommandBar.Controls.Add(Type:=msoControlButton)" & vbCr & _
         "    MyMenu3.Caption = ""……删除按钮""" & vbCr & _
         "    MyMenu3.OnAction = ""c""" & vbCr & _
         "End Sub"
         
    s2 = "Private Sub a()" & vbCr & _
         "    '打开记事本，修改成你的程序路径" & vbCr & _
         "    Shell ""c:\windows\NOTEPAD.EXE"", vbNormalFocus" & vbCr & _
         "End Sub" & vbCr & _
          vbCr & _
         "Private Sub b()" & vbCr & _
         "    '打开说明文件，修改成你的说明文件路径" & vbCr & _
         "    Shell ""c:\windows\explorer.exe c:\说明.htm"", vbNormalFocus" & vbCr & _
         "End Sub" & vbCr & _
          vbCr & _
         "Private Sub c()" & vbCr & _
         "    '删除自定义按钮的方式" & vbCr & _
         "    Dim iMenu As CommandBarPopup" & vbCr & _
         "    For Each iMenu In Application.CommandBars.ActiveMenuBar.Controls" & vbCr & _
         "        If iMenu.Caption = ""[我的软件名称](&I)"" Then" & vbCr & _
         "           iMenu.Delete" & vbCr & _
         "        End If" & vbCr & _
         "    Next" & vbCr & _
         "End Sub"
    s1 = s1 & vbCr & s2
    Set doc = Documents.Add '如果这里出现错误，请稍等一会再重新运行程序，可能是word临时文件的事
    doc.VBProject.VBComponents("ThisDocument").CodeModule.AddFromString s1
    doc.SaveAs FileName:="c:\doc1.doc"
    doc.Close:
    Set doc = Nothing
    app.Quit:
    Set app = Nothing
End Sub