
Run-time error '-2147417846 (8001010a)': Automation error (error 440)
I need a help!
I want to open MSWord2000 from VB6.0 application by clicking on the Command
named "Izvestaj". VB6.0 application started to launch Word (hard disc is
running), but suddenly it stopped and message is:
Run-time error '-2147417846 (8001010a)':
Automation error (error 440)
If I choose Debug option, there is Code below with marked line (STOP HERE).
Note: I have chosen (checked) reference Microsoft Word 9.0 Object Library (I
have Word2000), and Microsoft Office 8.0 Object Library, from menu Project.
When I chose Object Browser from View menu, I can see that I have
accessibility to Word objects named: Word.Application and Word.Document. So,
where is mistake?
Now, when I delete word "New" from marked line and run application again
everything works just perfect! But, when I save changes and close
application and start up again there is same problem! Application don't want
to launch MSWord!!!!!!!!!!!!!
Is there problem with my Windows98? Can anybody help me?!
Private Sub CmdIzvestaj_Click()
Dim objWord As Word.Application
Set objWord = New Word.Application.............................STOPPED
HERE
objWord.Visible = True
Dim objDoc As Word.Document
Set objDoc = objWord.Documents.Add
objDoc.Activate
objDoc.ActiveWindow.Selection.InsertAfter "Something"
objDoc.ActiveWindow.Selection.InsertParagraphAfter
objDoc.ActiveWindow.Selection.InsertAfter "Something more."
objDoc.ActiveWindow.Selection.InsertParagraphAfter
objDoc.ActiveWindow.Selection.Font.Bold = True
objDoc.ActiveWindow.Selection.EndOf
End Sub
--
Dragan Gligoric ( URL: http://www.*-*-*.com/ ~dgligori ),
--
Dragan Gligoric ( URL: http://www.*-*-*.com/ ~dgligori ),
Alekse Santica 25/30,
21000 Novi Sad,
Yugoslavia,