Исключение при обработке таблицы Word с объединёнными ячейками

 ' Перебираем все таблицы в документе
 For Each objTable In objDoc.Tables
     ' Перебираем строки таблицы
     For row = 1 To objTable.Rows.Count
 
         ' Получаем строку таблицы
            Dim tableRow As Object = objTable.Rows(row) 'В этой строке происходит исключительная ситуация
 
          ' Проверяем количество ячеек в строке
         If tableRow.Cells.Count = 1 Then
                 Console.WriteLine("Название иерархии: " & tableRow.Cells(1).Range.Text)
             ElseIf tableRow.Cells.Count > 1 Then
                 ' Перебираем столбцы таблицы
                  For col = 1 To objTable.Columns.Count
                     ' Получаем ячейку таблицы
                     Dim cell As Object = objTable.Cell(row, col)
                     If cell.Range.Font.Italic = True Then
                         Console.WriteLine("Название столбца: " & cell.Range.Text)
                     Else
                         Console.WriteLine("Обычные данные: " & cell.Range.Text)
                     End If
                 Next col
             End If
 
     Next row
 Next

Dim table As Table = Globals.ThisDocument.Tables(1)
    Dim range As Range = table.Range
 
    For i As Integer = 1 To range.Cells.Count
        If range.Cells(i).RowIndex Is table.Rows.Count Then
            'range.Cells(i).Range.Text = range.Cells(i).RowIndex.ToString() & ":" + range.Cells(i).ColumnIndex
            MessageBox.Show(range.Cells(i).Range.Text)
        End If
    Next

For Each cell As Cell In doc.Tables(i).Range.Cells
    Debug.Print(cell.Range.Text)
Next

Imports Xceed.Words.NET
Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim str As String = ""
        Dim objDoc = DocX.Load("E:\Music\!M_New\3.docx")
        'Перебираем таблицы
        For Each objTable In objDoc.Tables
            'Перебираем строки таблицы
            For Each row In objTable.Rows
                'Перебираем ячейки строки таблицы
                For Each cell In row.Cells
                    str += cell.Paragraphs(0).Text & " "
                Next
                TextBox1.Text += str & vbCrLf
                str = ""
            Next
        Next
    End Sub
End Class

Imports System.IO
Imports WRD = Microsoft.Office.Interop.Word
'...
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
    Dim wApp As New WRD.Application
    wApp.DisplayAlerts = WRD.WdAlertLevel.wdAlertsNone
    Dim objDoc As WRD.Document = wApp.Documents.Open(Path.Combine(Application.StartupPath, "Test1Copy.doc"),, True)
    'Dim dlm As String = vbTab
    TextBox1.Clear()
    If objDoc.Tables.Count >= 1 Then
        Dim wDoc As WRD.Document = wApp.Documents.Add()
        Dim rngDoc = wDoc.Range(Start:=0, End:=0)
        For Each objTable As WRD.Table In objDoc.Tables
            objTable.Range.Copy()
            rngDoc.PasteAndFormat(WRD.WdRecoveryType.wdFormatPlainText)
            wDoc.Range.ConvertToTable()
            For Each rw As WRD.Row In wDoc.Tables(1).Rows
                For j As Integer = 1 To wDoc.Tables(1).Columns.Count
                    TextBox1.AppendText(rw.Cells(j).Range.Text.TrimEnd("_") & vbTab)
                Next
                TextBox1.AppendText(vbCrLf)
            Next
        Next
        wDoc.Close(SaveChanges:=False)
    End If
    wApp.Visible = True
End Sub

If cell.Paragraphs(0).MagicText.Count <> 0 Then
    If cell.Paragraphs(0).MagicText(0).formatting.Italic Then
        Debug.WriteLine("Название столбца: " & cell.Paragraphs(0).Text)
    Else
        Debug.WriteLine("Обычные данные: " & cell.Paragraphs(0).Text)
    End If
End If

Imports System
Imports System.Collections.Generic
Imports System.IO
 
'C:\Users\Admin\Desktop\test2.docx
Module Program
    Sub Main()
        Dim objWord As Object
        Dim objDoc As Object
 
        Console.WriteLine("Введите путь к файлу Word:")
        Dim filePath As String = Console.ReadLine()
 
        Try
            ' Создаем объект приложения Word
            objWord = CreateObject("Word.Application")
 
            ' Открываем документ Word
            objDoc = objWord.Documents.Open(filePath)
 
            Call readWord(objDoc)
 
            ' Закрываем документ Word
            objDoc.Close()
            ' Закрываем приложение Word
            objWord.Quit()
 
            ' Освобождаем ресурсы
            objDoc = Nothing
            objWord = Nothing
 
        Catch ex As Exception
            Console.WriteLine("Произошла ошибка: " & ex.Message)
        End Try
    End Sub
 
 
    'Читам таблицу ворд и возвращаем список с значениями таблицы
    Function readWord(objDoc)
        Dim tableData As New List(Of String)()
 
        Try
 
 
            ' Перебираем все таблицы в документе
            For Each objTable In objDoc.Tables
                ' Переменная для хранения названия иерархии в текущей строке
                Dim hierarchyName As String = ""
 
                ' Перебираем строки таблицы
                For Each row In objTable.Rows
                    ' Проверяем, что есть хотя бы одна ячейка в строке
                    If row.Range.Cells.Count > 0 Then
                        ' Получаем первую ячейку в строке
                        Dim firstCell As Object = row.Range.Cells(1)
 
                        ' Если строка содержит только одну ячейку, то считаем её названием иерархии
                        If row.Range.Cells.Count = 1 Then
                            hierarchyName = row.Range.Text.Trim()
 
                        Else
                            ' Иначе, если переменная hierarchyName не пуста, добавляем её в список
                            If hierarchyName <> "" Then
                                tableData.Add("Название иерархии: " & hierarchyName)
                                hierarchyName = ""
                            End If
 
                            ' Перебираем все ячейки в строке, начиная со второй
                            For i = 1 To row.Range.Cells.Count
                                Dim cell As Object = row.Range.Cells(i)
                                If cell.Range.Font.Italic = True Then
                                    ' Если шрифт курсивом, то это название столбца
                                    tableData.Add("Название столбца: " & cell.Range.Text)
                                Else
                                    ' Выводим обычные данные
                                    tableData.Add("Обычные данные: " & cell.Range.Text.Trim())
                                End If
                            Next i
                        End If
                    End If
                Next row
            Next objTable
 
 
 
            ' Выводим сохраненные данные
            For Each item In tableData
                Console.WriteLine(item)
            Next
        Catch ex As Exception
            Console.WriteLine("Произошла ошибка: " & ex.Message)
        End Try
 
        Return tableData
 
    End Function
 
End Module