Skip to main content
3 de 3
Commonmark migration

MS Word desde VB.NET

Tengo la siguiente Forma con código:

Imports Word = Microsoft.Office.Interop.Word 
Public Class Form1
    **Dim oWord as New Word.Application()** 
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim oDoc As Word.Document = oWord.Documents.Add()
        dim oParas = oDoc.Paragraphs 
        dim oPara = oParas.Add() 
        dim oParaRng = oPara.Range 
        oParaRng.Text = "Heading 1" 
        dim oFont = oParaRng.Font 
        oFont.Bold = 1 
        oParaRng.InsertParagraphAfter() 

        dim oBookmarkRng = oDoc.Bookmarks.Item("\endofdoc").Range 
 
 
        Dim oTable = oDoc.Tables.Add(oBookmarkRng, 5, 2) 
        oTable.Range.ParagraphFormat.SpaceAfter = 6 
 
 
        For r As Integer = 1 To 5 
            For c As Integer = 1 To 2 
                oTable.Cell(r, c).Range.Text = "r" & r & "c" & c 
            Next 
        Next 
 
        ' Change width of columns 1 & 2 
        oTable.Columns(1).Width = oWord.InchesToPoints(2) 
        oTable.Columns(2).Width = oWord.InchesToPoints(3) 
        oDoc.Close() 
        oWord.Quit(False) 

    End Sub
End Class

Copiado de internet, ya que he intentado por distintas formas de hacer la conexión y en todas las probadas me da el error (En la linea marcada con ** o en negritas) siguiente:

Se produjo una excepción de tipo 'System.Runtime.InteropServices.COMException' en mscorlib.dll pero no se controló en el código del usuario

Información adicional: No se pudo recuperar el generador de clases COM para el componente con CLSID {000209FF-0000-0000-C000-000000000046} debido al siguiente error: 80080005

Error en la ejecución de servidor (Excepción de HRESULT: 0x80080005 (CO_E_SERVER_EXEC_FAILURE)).

En otros casos (Probando) me dice que no puede crear el control activex.

¿Qué puede estar mal, o que no he hecho para que esto funcione?

Mi ambiente es: Windows 10 64 Bits. Visual Studio 2015 y Office 2013