Dim dialog As New OpenFileDialog()
        dialog.Filter = "MS Word 2003 (*.doc)|*.doc|MS Word 2010 (*.docx)|*.docx"
        dialog.Title = "Выберите документ для загрузки данных"
        If dialog.ShowDialog() = System.Windows.Forms.DialogResult.OK Then
            TextBox1.Text = dialog.FileName
            Dim application As New Word.Application()
            Dim FileName As [Object] = dialog.FileName
            application.Documents.Open(FileName)
            Dim document As Word.Document = application.ActiveDocument
            Dim table As Word.Table = document.Tables(1)
            If (table.Rows.Count > 0 And table.Columns.Count > 0) Then
                Dim headers As New List(Of String)
                Dim dataTable As New DataTable()
                For i As Integer = 0 To table.Columns.Count - 1
                    dataTable.Columns.Add()
                    headers.Add(table.Cell(1, i + 1).Range.Text.Trim(ChrW(7), ControlChars.Cr, ControlChars.Lf, ControlChars.Tab))
                Next
                For i As Integer = 0 To table.Rows.Count - 1
                    dataTable.Rows.Add()
                    Dim row(table.Columns.Count) As String
                    For j As Integer = 0 To table.Columns.Count - 1
                        row(j) = table.Cell(i + 2, j + 1).Range.Text.Trim(ChrW(7), ControlChars.Cr, ControlChars.Lf, ControlChars.Tab)
                    Next
                Next
                DataGridView1.DataSource = dataTable
                For i As Integer = 0 To table.Columns.Count - 1
                    DataGridView1.Columns(i).HeaderText = headers(i)
                Next
                application.Quit()
            End If
        End If