Необходимо открыть файл 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 (одна из задач). Осуществляю таким способом:

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 подключена..Заранее спасибо.

Опечатка, это конечно же не нужно

Неа, не прокатывает:(

Спасиб:) Вроде эта проблема отпала. Но появилась другая.. Необходимо из этого файла doc по разделам считывать блок-схемы (один раздела в документе - одна блок-схема). Блок-схемы представляют собой набор текста и элементов (стрелок, квадратиков и т.п.).. Пока не представляю как все это дергать из doc.. То что нашел.. исключительно для текста.. Никто не сталкивался?