Solved

Microsoft.Visualbasic DLL Error Message

Posted on 2004-03-30
10
527 Views
Last Modified: 2007-12-19
I am trying to follow a Microsoft "How to" document entitled "HOW TO: Automate Word from Visual Basic .NET to Create a New Document".  The code they provide is at the following url: http://support.microsoft.com/default.aspx?scid=kb;EN-US;316383

When I try to run this I get the following error message:

An unhandled exception of type 'System.Exception' occurred in microsoft.visualbasic.dll
Additional information: Cannot create ActiveX component.

The "How to" document wants me to add a reference to the "Microsoft Word 10.0 Object Library" but all I have is "Microsoft Word 9.0 Object Library".

I'm looking for something to help rid me of this error message.

-Greg
0
Comment
Question by:greddin
  • 5
  • 4
10 Comments
 
LVL 96

Expert Comment

by:Bob Learned
Comment Utility
Some code would help.  

Option 1:  Use late-binding.  Option 2:  Use early-binding in Debug mode, and late-binding in Release Mode.

Bob
0
 

Author Comment

by:greddin
Comment Utility
Here is the complete code:

Imports Word = Microsoft.Office.Interop.Word
Private Sub Button1_Click(ByVal sender As System.Object, _
      ByVal e As System.EventArgs) Handles Button1.Click

        Dim oWord As Word.Application
        Dim oDoc As Word.Document
        Dim oTable As Word.Table
        Dim oPara1 As Word.Paragraph, oPara2 As Word.Paragraph
        Dim oPara3 As Word.Paragraph, oPara4 As Word.Paragraph
        Dim oRng As Word.Range
        Dim oShape As Word.InlineShape
        Dim oChart As Object
        Dim Pos As Double

        'Start Word and open the document template.
        oWord = CreateObject("Word.Application")
        oWord.Visible = True
        oDoc = oWord.Documents.Add

        'Insert a paragraph at the beginning of the document.
        oPara1 = oDoc.Content.Paragraphs.Add
        oPara1.Range.Text = "Heading 1"
        oPara1.Range.Font.Bold = True
        oPara1.Format.SpaceAfter = 24    '24 pt spacing after paragraph.
        oPara1.Range.InsertParagraphAfter()

        'Insert a paragraph at the end of the document.
        '** \endofdoc is a predefined bookmark.
        oPara2 = oDoc.Content.Paragraphs.Add(oDoc.Bookmarks.Item("\endofdoc").Range)
        oPara2.Range.Text = "Heading 2"
        oPara2.Format.SpaceAfter = 6
        oPara2.Range.InsertParagraphAfter()

        'Insert another paragraph.
        oPara3 = oDoc.Content.Paragraphs.Add(oDoc.Bookmarks.Item("\endofdoc").Range)
        oPara3.Range.Text = "This is a sentence of normal text. Now here is a table:"
        oPara3.Range.Font.Bold = False
        oPara3.Format.SpaceAfter = 24
        oPara3.Range.InsertParagraphAfter()

        'Insert a 3 x 5 table, fill it with data, and make the first row
        'bold and italic.
        Dim r As Integer, c As Integer
        oTable = oDoc.Tables.Add(oDoc.Bookmarks.Item("\endofdoc").Range, 3, 5)
        oTable.Range.ParagraphFormat.SpaceAfter = 6
        For r = 1 To 3
            For c = 1 To 5
                oTable.Cell(r, c).Range.Text = "r" & r & "c" & c
            Next
        Next
        oTable.Rows.Item(1).Range.Font.Bold = True
        oTable.Rows.Item(1).Range.Font.Italic = True

        'Add some text after the table.
        'oTable.Range.InsertParagraphAfter()
        oPara4 = oDoc.Content.Paragraphs.Add(oDoc.Bookmarks.Item("\endofdoc").Range)
        oPara4.Range.InsertParagraphBefore()
        oPara4.Range.Text = "And here's another table:"
        oPara4.Format.SpaceAfter = 24
        oPara4.Range.InsertParagraphAfter()

        'Insert a 5 x 2 table, fill it with data, and change the column widths.
        oTable = oDoc.Tables.Add(oDoc.Bookmarks.Item("\endofdoc").Range, 5, 2)
        oTable.Range.ParagraphFormat.SpaceAfter = 6
        For r = 1 To 5
            For c = 1 To 2
                oTable.Cell(r, c).Range.Text = "r" & r & "c" & c
            Next
        Next
        oTable.Columns.Item(1).Width = oWord.InchesToPoints(2)   'Change width of columns 1 & 2
        oTable.Columns.Item(2).Width = oWord.InchesToPoints(3)

        'Keep inserting text. When you get to 7 inches from top of the
        'document, insert a hard page break.
        Pos = oWord.InchesToPoints(7)
        oDoc.Bookmarks.Item("\endofdoc").Range.InsertParagraphAfter()
        Do
            oRng = oDoc.Bookmarks.Item("\endofdoc").Range
            oRng.ParagraphFormat.SpaceAfter = 6
            oRng.InsertAfter("A line of text")
            oRng.InsertParagraphAfter()
        Loop While Pos >= oRng.Information(Word.WdInformation.wdVerticalPositionRelativeToPage)
        oRng.Collapse(Word.WdCollapseDirection.wdCollapseEnd)
        oRng.InsertBreak(Word.WdBreakType.wdPageBreak)
        oRng.Collapse(Word.WdCollapseDirection.wdCollapseEnd)
        oRng.InsertAfter("We're now on page 2. Here's my chart:")
        oRng.InsertParagraphAfter()

        'Insert a chart and change the chart.
        oShape = oDoc.Bookmarks.Item("\endofdoc").Range.InlineShapes.AddOLEObject( _
            ClassType:="MSGraph.Chart.8", FileName _
            :="", LinkToFile:=False, DisplayAsIcon:=False)
        oChart = oShape.OLEFormat.Object
        oChart.charttype = 4 'xlLine = 4
        oChart.Application.Update()
        oChart.Application.Quit()
        'If desired, you can proceed from here using the Microsoft Graph
        'Object model on the oChart object to make additional changes to the
        'chart.
        oShape.Width = oWord.InchesToPoints(6.25)
        oShape.Height = oWord.InchesToPoints(3.57)

        'Add text after the chart.
        oRng = oDoc.Bookmarks.Item("\endofdoc").Range
        oRng.InsertParagraphAfter()
        oRng.InsertAfter("THE END.")

        'All done. Close this form.
        Me.Close()

    End Sub
0
 
LVL 96

Expert Comment

by:Bob Learned
Comment Utility
Look through the Windows registry for Word.Application.  You should find a version ProgID and a version-independent ProgID.  I have Word XP, so it found Word.Application.10, and Word.Application for the version-independent ProgID.  If you don't have the ProgID correct for that machine, then you will get the ActiveX error.

HKEY_CLASSES_ROOT\CLSID\{000209FF-0000-0000-C000-000000000046}\ProgID
HKEY_CLASSES_ROOT\CLSID\{000209FF-0000-0000-C000-000000000046}\VersionIndependentProgID
0
 

Author Comment

by:greddin
Comment Utility
For ProgID mine says: Word.Application.9
For VersionIndependentProgID just says: Word.Application

I'm running Windows 2000 Professional with Office 2000 which is Word 9.0 I think.
0
 
LVL 96

Expert Comment

by:Bob Learned
Comment Utility
Does this occur on the development or a production machine?
0
Why You Should Analyze Threat Actor TTPs

After years of analyzing threat actor behavior, it’s become clear that at any given time there are specific tactics, techniques, and procedures (TTPs) that are particularly prevalent. By analyzing and understanding these TTPs, you can dramatically enhance your security program.

 

Author Comment

by:greddin
Comment Utility
I'm on my local machine. Development I guess. But if I can get this to work, I would eventually move to production.
0
 
LVL 28

Expert Comment

by:iboutchkine
Comment Utility
AS TheLearnedOne told you use late binding

objWord = CreateObject("Word.Application")
objDoc = CreateObject("Word.Document")
objWord.Visible = True
objWord.WindowState = WORD_STATE_MAXIMIZE

Try
    objDoc = objWord.Documents.Open(m_strFilePath & "\" & m_strFileName)
Catch
    MessageBox.Show("Document couldn't be opened")
End Try

that will open a word doc
0
 

Author Comment

by:greddin
Comment Utility
I will have to learn exactly what late binding is. All I was trying to do was follow the code sample from MSDN. It said nothing about late binding. In your code above your have the line:

objDoc = CreateObject("Word.Document")

Does this line need to be added to my code?

What is the reason to use late binding?

Thanks,
-Greg
0
 

Author Comment

by:greddin
Comment Utility
If I'm not mistaken, it looks like the MSDN code above is already doing late binding. Correct?
0
 
LVL 96

Accepted Solution

by:
Bob Learned earned 500 total points
Comment Utility
Yes, the code is using late-binding, but it appears that there is a mix between early and late binding.  With early binding, you need a reference to the Word library, but it is version specific reference to a type library with a particular GUID.  Early binding gives you the ability for AutoCompletion and Intellisense.  The compiler knows about properties and methods, so it can trap code errors.  Late-binding makes it easier to access type libraries that have the same ProgID, but different GUIDs (like Word 2000 and Word XP).  The compiler can't predetermine properties and method signatures, so it can only trap errors at run-time.  

The error 'ActiveX cannot create object' is broad.  I can mean that the ProgID is incorrect, or the type-library is not registered correctly.
0

Featured Post

How to improve team productivity

Quip adds documents, spreadsheets, and tasklists to your Slack experience
- Elevate ideas to Quip docs
- Share Quip docs in Slack
- Get notified of changes to your docs
- Available on iOS/Android/Desktop/Web
- Online/Offline

Join & Write a Comment

IP addresses can be stored in a database in any of several ways.  These ways may vary based on the volume of the data.  I was dealing with quite a large amount of data for user authentication purpose, and needed a way to minimize the storage.   …
This article describes relatively difficult and non-obvious issues that are likely to arise when creating COM class in Visual Studio and deploying it by professional MSI-authoring tools. It is assumed that the reader is already familiar with the cla…
This video gives you a great overview about bandwidth monitoring with SNMP and WMI with our network monitoring solution PRTG Network Monitor (https://www.paessler.com/prtg). If you're looking for how to monitor bandwidth using netflow or packet s…
This video shows how to remove a single email address from the Outlook 2010 Auto Suggestion memory. NOTE: For Outlook 2016 and 2013 perform the exact same steps. Open a new email: Click the New email button in Outlook. Start typing the address: …

744 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

Need Help in Real-Time?

Connect with top rated Experts

17 Experts available now in Live!

Get 1:1 Help Now