Solved

(Exception from HRESULT: 0x8002801D (TYPE_E_LIBNOTREGISTERED)).

Posted on 2009-04-07
2
4,567 Views
Last Modified: 2013-11-26
I am trying to automate Word from a VB.net application but keep getting the error:
"Unable to cast COM object of type 'Microsoft.Office.Interop.Word.ApplicationClass' to interface type 'Microsoft.Office.Interop.Word._Application'. This operation failed because the QueryInterface call on the COM component for the interface with IID '{00020970-0000-0000-C000-000000000046}' failed due to the following error: Library not registered. (Exception from HRESULT: 0x8002801D (TYPE_E_LIBNOTREGISTERED))."

I ran RegAsm to register Office.dll, Microsoft.Vbe.Interop.dll and Microsoft.Office.Interop.Word.dll successfully.

However, I continue to get this error when oWord.Visible = True attempts to execute.



Imports Word = Microsoft.Office.Interop.Word
Imports System.Runtime.InteropServices
 
Private Sub OpenWordDoc
       Dim oWord As Word.Application
        Dim wDoc As Word.Document
        Dim para1 As Word.Paragraph
        Dim strResult As String
 
        oWord = CreateObject("Word.Application")
        oWord.Visible = True
 
        wDoc = oWord.Documents.Add
        para1 = wDoc.Content.Paragraphs.Add
        para1.Range.Text = RepairCommentsTextBox.Text
 
 
        'para1 = wDoc.Content.Paragraphs.Add()
        'para1.Range.Text = RepairCommentsTextBox.Text
        'para1.Range.InsertParagraphAfter()
 
        wDoc.CheckSpelling()
 
        strResult = Microsoft.VisualBasic.Left(wDoc.Content.Text, Len(wDoc.Content) - 1)
        If Not RepairCommentsTextBox.Text = strResult Then
            RepairCommentsTextBox.Text = strResult
        End If
End Sub

Open in new window

0
Comment
Question by:PenningtonCounty
2 Comments
 
LVL 12

Accepted Solution

by:
omegaomega earned 500 total points
ID: 24111414
Hello, PenningtonCounty,

I'm still using Word 2000 and VS2005, but I tried running your code with those and had no trouble. (That is, until I got to "Len(wDoc.Content)".  I had to change that to "Len(wDoc.Content.Text)" to get that statement to work.)

I suspect that there must be some problem with your reference to the Word Object Library.  Have you checked this reference to make sure that it is consistent with Word 2003?

Also, I'm not familiar with the effects of the statement:

     Imports Word = Microsoft.Office.Interop.Word

but for me this statement seems to be unnecessary and generates a warning.  The code works for me both with the statement in place and also if it is commented out.  But perhaps in VS2008 and Word2003 this is causing some interference.  What happens if you remove it?

Cheers,
Randy




0
 

Author Closing Comment

by:PenningtonCounty
ID: 31567736
You did point out a problem that I had not gotten to just yet. The problem causing the error was solved by removing a conflicting Interop assembly. The following link was helpful in getting to the problem: http://msdn.microsoft.com/en-us/library/aa159923(office.11).aspx
that plus advice from a Word Automation Expert.
0

Featured Post

Resolve Critical IT Incidents Fast

If your data, services or processes become compromised, your organization can suffer damage in just minutes and how fast you communicate during a major IT incident is everything. Learn how to immediately identify incidents & best practices to resolve them quickly and effectively.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Does the idea of dealing with bits scare or confuse you? Does it seem like a waste of time in an age where we all have terabytes of storage? If so, you're missing out on one of the core tools in every professional programmer's toolbox. Learn how to …
Whether you've completed a degree in computer sciences or you're a self-taught programmer, writing your first lines of code in the real world is always a challenge. Here are some of the most common pitfalls for new programmers.
This video walks the viewer through the process of creating envelopes and labels, with multiple names and addresses. Navigate to the “Start Mail Merge” button in the Mailings tab: Follow the step-by-step process until asked to find the address doc…
This video shows where to find templates, what they are used for, and how to create and save a custom template using Microsoft Word.

860 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question