Word. Узнать объединены ли ячейки

[dr.MIG]

Перебираю ячейки в таблице, как узнать является ли текущая ячейка результатом объединения нескольких столбцов?

[Alec]

По-моему непосредственно это невозможно. Слишком много условностей - если объединить две ячейки, а потом получившуюся разбить на три, которая будет считаться объединенной?
Сравнением ширин ячеек с ширинами в других строках?

[iGrok]

Сравнением ширин ячеек с ширинами в других строках?

А чем это поможет, если

...объединить две ячейки, а потом получившуюся разбить на три...

[dr.MIG]

В общем случае, возможно это и не решаемо. Меня же интересует частный случай. Во вложении пример DOC-файла. Это расписание. Другие варианты не имеют принципиальных отличий и имеют сходную структуру. Задача состоит в том, чтобы из этого общего расписания извлечь расписание для отдельных групп, т.е. в данном случае получить 24 отдельных расписания. Вот и думаю над алгоритмом.
Рассматривал как наиболее простой вариант поставить курсор в верхнюю ячейку и спускаясь на ячейку ниже получить искомое. Однако это движение так же не удается организовать так как появляется ошибка, которую и следует ожидать: "Отсутсвует доступ к отдельным строкам, поскольку таблица имеет ячейки, объежиненные по вертикали."

[alibek]

В Word-овских таблицах нет такого понятия "объединенной ячейки", какое вкладывается в объединенные ячейки Excel.
Так что считай количество ячеек в строке и складывай их ширину, после чего сравнивай со следующей строкой.

[viter.alex]

Если ячейки объединены по строкам, то можно узнать так (работает только для Selection, но не для Range):

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

ActiveDocument.Tables(1).Range.Cells(1).Select
With Selection
  If .Information(wdStartOfRangeRowNumber) <> .Information(wdEndOfRangeRowNumber) Then
    MsgBox "Ячейка объединена по " & .Information(wdEndOfRangeRowNumber) - .Information(wdStartOfRangeRowNumber) - 1 & " строкам"
  End If
End With

С ячейками, объединёнными по столбцам, так не получится.

[dr.MIG]

Да, я этот код нашел, но интересовало именно объединение по столбцам.
Тогда другой вопрос -- можно ли как-то эмулировать переход на ячейку вниз? Или единственный выход -- это MoveDown с wdLine и проверкой произошел ли переход к другой ячейке или был переход внутри ячейки?

[arvitaly]

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

Selection.Move Unit:=wdRow, Count:=1

?