Запись данных м MSWord

Imports WRD = Microsoft.Office.Interop.Word
Public Class Form1
    Private wApp As WRD.Application
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        wApp = New WRD.Application
        wApp.DisplayAlerts = WRD.WdAlertLevel.wdAlertsNone
        wApp.Visible = True
        Dim objDoc As WRD.Document = wApp.Documents.Open(IO.Path.Combine(Application.StartupPath, "WrdTest1.doc"))
        Dim rng As WRD.Range = objDoc.Range(0, 300)
        Dim str As String = vbCrLf & "qwert asdf ghhjjj" & vbCrLf & "z123456 789654" & vbCrLf
        rng.InsertAfter(str)
    End Sub
End Class

Dim Word = GetObject(, "Word.Application")
Dim rng = Word.Selection
MsgBox(rng.start.ToString & vbCrLf & rng.end)

Dim wordApp As WRD.Application
wordApp = CType(System.Runtime.InteropServices.Marshal.GetActiveObject("Word.Application"), Microsoft.Office.Interop.Word.Application)
Dim rng = wordApp.Selection
MsgBox(rng.Start.ToString & vbCrLf & rng.End.ToString)

Dim WApp As Word.Application = CreateObject("Word.Application")
                                Dim WDoc As Word.Document = Nothing
                                Dim boolWDVisibl As Boolean = False
                                If FormReport.RadioButton3.Checked = True And FormReport.ComboBox1.Text Like "Новый файл docx" Then
                                    WDoc = WApp.Documents.Add()
                                Else
                                    Dim WordObj As Microsoft.Office.Interop.Word.Application = New Microsoft.Office.Interop.Word.Application()
                                    Try
                                        WordObj = System.Runtime.InteropServices.Marshal.GetActiveObject("Word.Application")
                                        If IsNothing(WordObj) = False Then
                                            For i As Integer = 0 To WordObj.Windows.Count - 1
                                                Dim idx As Object = i + 1
                                                Dim WinObj As Word.Window = WordObj.Windows.Item(idx)
                                                If WinObj.Document.Name Like FormReport.ComboBox1.Text Then
                                                    WDoc = WordObj.Documents.Item(idx)
                                                    Exit For
                                                End If
                                            Next
                                        End If
                                    Catch ex As COMException
                                    End Try
                                End If
                                boolWDVisibl = True
                                WApp.Visible = True
                                Dim rng = WDoc.Selection
 
                                MsgBox(rng.start.ToString & vbCrLf & rng.end)

Dim WApp As Word.Application = Nothing
                                Dim WDoc As Word.Document = Nothing
                                Dim boolWDVisibl As Boolean = False
                                If FormReport.RadioButton3.Checked = True And FormReport.ComboBox1.Text Like "Новый файл docx" Then
                                    WApp = CreateObject("Word.Application")
                                    WDoc = WApp.Documents.Add()
                                    WApp.Visible = True
                                Else
                                    'Dim WordObj As Microsoft.Office.Interop.Word.Application = New Microsoft.Office.Interop.Word.Application()
                                    WApp = New Microsoft.Office.Interop.Word.Application()
                                    Try
                                        WApp = System.Runtime.InteropServices.Marshal.GetActiveObject("Word.Application")
                                        If IsNothing(WApp) = False Then
                                            For i As Integer = 0 To WApp.Windows.Count - 1
                                                Dim idx As Object = i + 1
                                                Dim WinObj As Word.Window = WApp.Windows.Item(idx)
                                                If WinObj.Document.Name Like FormReport.ComboBox1.Text Then
                                                    WDoc = WApp.Documents.Item(idx)
                                                    Exit For
                                                End If
                                            Next
                                        End If
                                    Catch ex As COMException
                                    End Try
                                End If
                                boolWDVisibl = True
                                Dim rng = WApp.Selection
                                MsgBox(rng.Start.ToString & vbCrLf & rng.End)

WDocTbl = WDoc.Tables.Add(range, 3, 5, Word.WdDefaultTableBehavior.wdWord9TableBehavior, Word.WdAutoFitBehavior.wdAutoFitContent)