Парсинг таблиц WORD - VBA

Формулировка задачи:

В общем, написал алгоритм перебора ячеек Cell. Вроде, все хорошо. Однако, проблема с объедененными ячейками: Как я могу понять при переборе, что я работаю с объеденной ячейкой и что я должен позаимствовать значение сверху? Ну например, что текущая обрабатываемая ячейка относится к такой то группе=> заимствовать значение оттуда-то. Цель всего этого- затолкать в таблицу Access.

Решение задачи: «Парсинг таблиц WORD»

textual
                            Листинг программы 
                        

                            Sub ParseInExcel()
    Dim doc As Document, tbl As Table, eObj, eWbk, eWst, eRng, eCell
    Dim i As Long, j As Long
    Set doc = ThisDocument
    Set tbl = doc.Tables(1)
    tbl.Range.Copy
    Set eObj = CreateObject("Excel.Application")
    Set eWbk = eObj.Workbooks.Add
    Set eWst = eWbk.Sheets(1)
    eWst.Paste
    Set eRng = eWst.Cells(1).CurrentRegion
    For i = 1 To eRng.Rows.Count
        For j = 1 To eRng.Columns.Count
            Set eCell = eRng.Cells(i, j)
            If eCell.MergeCells Then
                Debug.Print eCell.MergeArea.Cells(1).Value & " ";
            Else
                Debug.Print eCell.Value & " ";
            End If
        Next
        Debug.Print
    Next
    eWbk.Saved = True
    eWbk.Close
    Set eWbk = Nothing
    eObj.Quit
    Set eObj = Nothing
End Sub
                        