Skip to main content
Commonmark migration
Origen Enlace

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

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

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

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()

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

End Class

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

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)).

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)).

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

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

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)).

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

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

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)).

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

Origen Enlace

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