Microsoft Word Сбой при удаленном вызове процедуры 0x800706BE - Visual Basic .NET - Ответ 12521061

Imports Word = Microsoft.Office.Interop.Word
 
Module ModuleMWord
    Private Doc As Word.Document
    Private App As Word.Application
 
    Private Sub WrText(ByVal Text As String, ByVal MyFt As MyFont)
        Try
            Dim Par As Word.Paragraph = Doc.Content.Paragraphs.Add(Doc.Bookmarks.Item("\endofdoc").Range)
            Par.Range.Text = Text
            Par.Range.Font.Name = MyFt.Name
            Par.Range.Font.Size = MyFt.Size
            Par.Range.Font.Bold = MyFt.Bold
            Par.Range.Font.Italic = MyFt.Italic
            Par.Format.Alignment = MyFt.Aligment
            Par.Range.InsertParagraphAfter()
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub
 
    Public Sub WriteWord()
        App = New Word.Application
        App.Visible = True
        Doc = App.Documents.Add
        WrText("Hello", New MyFont With {.Bold = True, .Size = 20})
        WrText("WORLD!", New MyFont With {.Italic = True, .Size = 30})
        WrText("Привет", New MyFont With {.Name = "Arial", .Size = 25})
        WrText("МИР!", New MyFont With {.Bold = True, .Size = 20, _
            .Aligment = Word.WdParagraphAlignment.wdAlignParagraphRight})
    End Sub
End Module
 
Public Class MyFont
    Public Property Name As String
    Public Property Size As Integer
    Public Property Bold As Boolean
    Public Property Italic As Boolean
    Public Property Aligment As Word.WdParagraphAlignment
 
    Public Sub New()
        Name = "Times New Roman"
        Size = 16
        Bold = False
        Italic = False
        Aligment = Word.WdParagraphAlignment.wdAlignParagraphLeft
    End Sub
End Class