Run-time error '-2147417846 (8001010a)': Automation error (error 440)
Hi,
The problem may occur if you have installed Norton Antivirus 2000. If so,
please try to remove the Norton AntiVirus plug-in for Microsoft Office 2000
by running the following command:
Note: Please change the path to the file as needed
regsvr32 /U "C:\Program Files\Norton AntiVirus\OfficeAV.dll"
I hope this helps.
Regards,
Kally
==========
This posting is provided "AS IS" with no warranties, and confers no rights.
== Original Message ==
Newsgroups: microsoft.public.vb.enterprise
Subject: Run-time error '-2147417846 (8001010a)': Automation error (error
440)
Date: Tue, 9 Apr 2002 22:06:59 +0200
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://SOLAIR.Eunet.yu/~dgligori ),
