М Word с VB.NET

У меня есть следующая Форма с кодом:

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

Скопированный Интернета, так как я пробовал из-за различных способов входить в систему, и во всех проверенные он дает мне ошибку (В линии, помеченной с ** или в полужирных шрифтах) следующий:

Случилось исключение типа 'System. Runtime. InteropServices. COMException' в mscorlib.dll, но он не контролировался в коде пользователя

Добавочная информация: Не было возможно возвращать генератор классов COM для компонента с CLSID {000209FF-0000-0000-C000-000000000046} ввиду следующей ошибки: 80080005

Ошибка в выполнении сервера (Исключение HRESULT: 0x80080005 (CO_E_SERVER_EXEC_FAILURE)).

В других случаях (Пытаясь) он говорит мне, что он не может создавать контроль activex.

Что может быть плохое, или который я не сделал для того, чтобы это функционировало?

Моя атмосфера: Windows 10 64 Бита. Визуальный Studio 2015 и Office 2013

0
задан 26.01.2017, 18:30
0 ответов

Попытайся инициализировать твою переменную oWord следующего способа:

Dim oWord As Object
oWord = New Microsoft.Office.Interop.Word.Application
0
ответ дан 03.12.2019, 17:29
  • 1
    Уже я это сделал, ошибка продолжает... –  27.01.2017, 20:23