如何在VB中调用Word里面的宏！

Question

'运行自动宏
Public g_xlsApp As Word.Application        
Call g_xlsApp.ActiveWorkbook.RunAutoMacros(xlAutoOpen)
  '运行宏里面的函数
    Call g_xlsApp.Run(strFileName & "!" & "gc_MarcoInsert", strParament)strFileName：包含宏的文档的含路径的文件名称
gc_MarcoInsert：函数名称
strParament：宏函数的参数

Answer 1

Set wrdApp = New Word.Application
Set wrdDoc = wrdApp.Documents.Open("c:\doc1.Doc", , False)
Call wrdDoc.RunAutoMacro(wdAutoOpen)    -运行自动宏
Call wrdApp.Run("macro1")               -运行指定宏 wrdDoc.Close
wrdApp.Quit
Set wrdDoc = Nothing
Set wrdApp = Nothing