Добавить макрос в MSWord

[Max_Fin]

Как собственно программно добавить макрос, содержащийся в файле, к документу. Кроме мотода RUN для запуска ни чего не нашел.

[Max_Fin]

Нашел пока только это

Код: Выделить всё

ActiveDocument.VBProject.VBComponents.Import ("c:\a.bas")


но при этом создается отдельный модуль.

Вопрос такой:
Как назначить Документу обработку события, к примеру, Close.

[echo]

Глянь тут
http://www.vbstreets.ru/VBA/Articles/65935.aspx

Код: Выделить всё

Private Sub Document_Close()

End Sub

[Max_Fin]

после долгих поисков по помощи нашел решение

Код: Выделить всё

  For I = 1 To ActiveDocument.VBProject.VBComponents.Count
    If ActiveDocument.VBProject.VBComponents.Item(1).Type = VBIDE.vbext_ct_Document Then
       ActiveDocument.VBProject.VBComponents.Item(1).CodeModule.AddFromFile ("c:\a.bas")
       Exit For
    End If
  Next I


[Max_Fin]

Справился сам, но все равно спасибо

поэтому переписал код на

Код: Выделить всё

    ActiveDocument.VBProject.VBComponents.Item("ThisDocument").CodeModule.AddFromFile ("c:\a.bas")