Error interop vb.net word

No se puede convertir el objeto COM del tipo 'Microsoft. Office. Interop. Word. ApplicationClass' al tipo de interfaz 'Microsoft. Office. Interop. Word._Application'. Ocurrió un error de operación debido a que la llamada QueryInterface en el componente COM para la interfaz con IID '{00020970-0000-0000-C000-000000000046}' generó el siguiente error: Interfaz no compatible (Excepción de HRESULT: 0x80004002 (E_NOINTERFACE)).

Este es el codigo que estoy ejecutando.

Dim wordApp As Microsoft.Office.Interop.Word.Application = New Microsoft.Office.Interop.Word.Application
                Dim texto As String = ""
                Dim wordDoc As Word.Document
                Try
                    DespMsg("1")
                    'WordApp = New Word.Application()
                    DespMsg("1.5 " & TypeName(WordApp))
                    WordApp.Visible = True
                    DespMsg("2")
                    'wordDoc = WordApp.Documents.Open(Label1.Text, True, True, False)
                    wordDoc = WordApp.Documents.Add(Label1.Text, True, True, False)
                    DespMsg("3")
                    wordDoc.Select()
                    texto = WordApp.Selection.Text
                    MsgBox("pause", MsgBoxStyle.Exclamation)
                    'Texto = Left(Texto, Len(Texto) - 1)
                    RichTextBox1.Text = texto
                    wordDoc.Close(False)
                Catch ex As Exception
                    DespMsg("4")
                    DespMsg(ex.Message)
                Finally
                    DespMsg("5")
                    wordDoc = Nothing
                    System.Threading.Thread.CurrentThread.CurrentCulture = oldCI
                    WordApp = Nothing
                End Try

0

Añade tu respuesta

Haz clic para o