Пример работы с Word'ом из VB

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

Необходимо открыть файл Word из VB. Осуществляю таким способом:
Option Explicit
Dim objWord As Word.Application
Dim objDoc As Word.Document
Private Sub Command1_Click()
'Creating a new object
Set objWord = New Word.Application
objWord.Visible = True
'Creating a new document
Set objDoc = objWord.Documents.Add
End Sub
Private Sub Command2_Click()
Set objDoc = New Word.Document
End Sub
Private Sub Command3_Click()
objDoc.Activate
objDoc.PrintPreview
objDoc.PrintOut
End Sub
Private Sub Command4_Click()
objDoc.Activate
objDoc.Close False
End Sub
Private Sub Command5_Click()
Set objWord = Word.Application
Set objDoc = objWord.Documents.Open(App.Path & "\HI.doc")
End Sub
Private Sub Command6_Click()
' Activating document
objDoc.Activate
With objDoc.ActiveWindow.Selection
.InsertAfter Text1.Text
.InsertParagraphAfter
.Font.Bold = True
.ParagraphFormat.Alignment = wdAlignParagraphCenter
.EndOf 'Snimaet Videlenie
' Vstavliaet noviy abzati
.InsertParagraphAfter
.InsertAfter Text2.Text
.ParagraphFormat.Alignment = wdAlignParagraphCenter
.Font.ColorIndex = wdBlue
.Font.Size = 20
.EndOf 'Snimaet videlenie
End With
End Sub
Private Sub Command7_Click()
objDoc.Activate
objDoc.Save
objDoc.Close
End Sub
Private Sub Form_Load()
Dim objWord As Word.Application
Dim objDoc As Word.Document
End Sub
Однако, именно функция открытия и не пашет. Выдает ошибку 429 ActiveX component dont create.. Ссылается на стоку Set objWord = Word.Application в Private Sub Command5_Click(). Подскажите кто знает, в чем проблема.. Библиотека Word подключена..Заранее спасибо.

Решение задачи: «Пример работы с Word'ом из VB»

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

                            <font color="blue">Private</font> <font color="blue">Sub</font> Command5_Click()
<font color="blue">Set</font> objWord = <font color="blue">New</font> Word.Application
<font color="blue">Set</font> objDoc = <font color="blue">New</font> objWord.Documents.<font color="blue">Open</font>(App.Path & <font color="teal">"\HI.doc"</font>)
<font color="blue">End</font> <font color="blue">Sub</font>
                        