Как загрузить макрос в Word? - VB

Формулировка задачи:

У меня есть собственный, написанный мною, макрос. Мне нужно написать программу, которая будет загружать (инсталлировать) этот макрос в Ворд. Подскажите, как это можно сделать.
Заранее благодарю :-)

Решение задачи: «Как загрузить макрос в Word?»

textual
                            Листинг программы 
                        

                            <font color="blue">Public</font> <font color="blue">Sub</font> ImportMacro()
    <font color="blue">Dim</font> wdApp <font color="blue">As</font> Word.Application
    
    <font color="blue">Set</font> wdApp = CreateObject(<font color="teal">"Word.Application"</font>)
    wdApp.Visible = True
    
    wdApp.Documents.Add
    
    wdApp.NormalTemplate. _
      VBProject.VBComponents.Import Filename:=<font color="teal">"D:\1\Module1.bas"</font>
    
    <font color="blue">Set</font> wdApp = <font color="blue">Nothing</font>
<font color="blue">End</font> <font color="blue">Sub</font>
                        