Microsoft Word Сбой при удаленном вызове процедуры 0x800706BE

Imports Word = Microsoft.Office.Interop.Word
 
Module ModuleWord
    Private Doc As Word.Document
    Private App As Word.Application
 
    Private Sub WrText(ByVal Text As String) 'запись текста
        Dim Par As Word.Paragraph = Doc.Content.Paragraphs.Add(Doc.Bookmarks.Item("\endofdoc").Range)
        Par.Range.Text = Text
        Par.Format.Alignment = Word.WdParagraphAlignment.wdAlignParagraphLeft
        Par.Range.InsertParagraphAfter()
    End Sub
 
    Private Sub WrText(ByVal Text As String, ByVal Bold As Boolean) 'Запись жирного текста
        Dim Par As Word.Paragraph = Doc.Content.Paragraphs.Add(Doc.Bookmarks.Item("\endofdoc").Range)
        Par.Range.Text = Text
        Par.Range.Font.Bold = Bold
        Par.Format.Alignment = Word.WdParagraphAlignment.wdAlignParagraphLeft
        Par.Range.InsertParagraphAfter()
    End Sub
 
    Public Sub WriteWord()
        App = New Word.Application
        App.Visible = True
        Doc = App.Documents.Add
 
        WrText("Hello") 
        WrText("world", True)
    End Sub
End Module

    Private Sub WrText(ByVal Text As String, ByVal Fnt As Word.Font)
        Try
            Dim Par As Word.Paragraph = Doc.Content.Paragraphs.Add(Doc.Bookmarks.Item("\endofdoc").Range)
            Par.Range.Text = Text
            Par.Range.Font = Fnt
            Par.Format.Alignment = Word.WdParagraphAlignment.wdAlignParagraphLeft
            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") 
        WrText("world", New Word.Font With {.Size = 20, .Italic = True})
    End Sub

Imports WRD = Microsoft.Office.Interop.Word
Private wApp As WRD.Application
Private wDoc As WRD.Document
Private Sub Button5_Click(sender As System.Object, e As System.EventArgs) Handles Button5.Click
    wApp = New WRD.Application
    wDoc = wApp.Documents.Open("c:\07\test01a.doc")
    WrText("Все бы ничего, но вдруг мне понадобилось изменить еще пару параметров")
    WrText("Все бы ничего, но вдруг мне понадобилось изменить еще пару параметров", 14, True)
    'или
    Dim fnt As New Font("Arial", 12, FontStyle.Bold Or FontStyle.Italic)
    WrText2("Все бы ничего, но вдруг мне понадобилось изменить еще пару параметров", fnt)
    wApp.Visible = True
End Sub
Private Sub WrText(ByVal Text As String, Optional ByVal newSize As Integer = 10, Optional ByVal isBold As Boolean = False, Optional ByVal isItalic As Boolean = False)
    Try
        Dim Par As WRD.Paragraph = wDoc.Content.Paragraphs.Add(wDoc.Bookmarks.Item("\endofdoc").Range)
        Par.Range.Text = Text
        Par.Range.Font.Bold = isBold
        Par.Range.Font.Italic = isItalic
        Par.Range.Font.Size = newSize
        Par.Format.Alignment = WRD.WdParagraphAlignment.wdAlignParagraphLeft
        Par.Range.InsertParagraphAfter()
    Catch ex As Exception
        MsgBox(ex.Message)
    End Try
End Sub
Private Sub WrText2(ByVal Text As String, ByVal newFont As Font)
    Try
        Dim Par As WRD.Paragraph = wDoc.Content.Paragraphs.Add(wDoc.Bookmarks.Item("\endofdoc").Range)
        Par.Range.Text = Text
        Par.Range.Font.Name = newFont.Name
        Par.Range.Font.Bold = newFont.Bold
        Par.Range.Font.Italic = newFont.Italic
        Par.Range.Font.Size = newFont.Size
        Par.Format.Alignment = WRD.WdParagraphAlignment.wdAlignParagraphLeft
        Par.Range.InsertParagraphAfter()
    Catch ex As Exception
        MsgBox(ex.Message)
    End Try
End Sub

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