Считывание данных из таблицы в ворде

[Karbon]

В вордовской таблице присутствуют ячейки объединенные как по вертикали, так и по горизонтали. Задача: в цикле считать данные из всех ячеек построчно.

При попытке определить сколько ячеек в строке появляется ошибка:

"Отсутствует доступ к отдельныи строкам, поскольку таблица имеет ячейки , объединенные по вертикали"

Помогите, кто может.

[Igor_123]

Кто-то ответил?
Или может проблема рашена другим способом????
Мне наоборот необходимо создать таблицу и заполнить её данными.
Если ещё актуально как решу дам решение

[Igor_123]

Попробуй поиграться так

Код: Выделить всё

Dim tab1 As Table
Dim columnForIteration As Row 'Column
Dim cellForIteration As Cell
Dim i As Long
i = 0
Set tab1 = ActiveDocument.Tables(1)
For Each columnForIteration In tab1.Rows '.Columns
    For Each cellForIteration In columnForIteration.Cells
        cellForIteration.Range.Text = i
        i = i + 1
    Next
Next

Это работает когда есть объединение ячеек погоризонтали
если есть объединение по вертикали - поставь .Columns
но к сожалению не работает с объединением ячеек например 2*2
Если тебе это поможет, мне проще т.к. я создаю и могу создавать почти в любой последовательности.
Ни и желаю удачи в любом случае!