Как определить, что есть объединенные ячейки

[Solyarka]

Форматирую таблицы документа с помощью макроса. Проблема в том, что есть таблицы, содержащие объединенные ячейки, и тогда свойство HeadingFormat (повторять как заголовок таблицы) для строки установить в True не получается: валится ошибка. Свойств, которые возвращали бы информацию о том, что таблица/строка/ячейка содержат merged cells не нашла. Может кто-нибудь решал такую задачу.

Кусочек моего кода:
With ActiveDocument.Tables(I)
.Rows(1).HeadingFormat = True
....
With

Заранее спасибо.

[Serge_Bliznykov]

вообще, чтобы определить есть объединённые ячейки нужно перебрать все ячейки, которые входят в диапазон
(например для выделенного диапазона начало кода:

 Dim c As Range
 For Each c In Selection
    With c
      If .MergeCells Then
      ....
      End If
    End With
 Next

но мне кажется, что в вашем случае проше перехватить на себя обработчик ошибок. примерно так:

    On Error Resume Next
 ваш код:
  ....
  ActiveDocument.Tables(I) _
     .Rows(1).HeadingFormat = True
    
    If Err.Number <> 0 Then
       'Сигнализируем об ошибке (если надо)
       Exit Sub
    End If

[БуреВестник]

Ты применяешь свой макрос ко одной таблице или ко всем таблицам в документе?
Если ко одной - то создай отдельный макрос для форматирования шапки таблицы.
Если ко многим, то другой разговор.

[viter.alex]

Было-было. Можно было определить, что ячейки объединены то ли по строкам, то ли по столбцам. Я даже пример выкладывал.

[БуреВестник]

Может это?
http://www.programmersforum.ru/showthread.php?t=52255

[viter.alex]

Нет-нет, это давно было. Вот это сообщение
В коде в переменную iRSpan записывается количество строк, которые объединены в данной ячейке. Со столбцами такая конструкция не проходит. Всегда возвращает 1. Это не должно так быть, но так есть.
Кстати, работать будет только для объекта Selection: это один из немногих случаев когда Selection нельзя заменить на Range. Т.е. ячейку, которую нужно проверить на объединение, нужно выбрать.
А можно вообще ловить ошибку через On Error Resume Next, как предложил Serge_Bliznykov, только не сигнализировать, а спокойно делать свое дело дальше

[БуреВестник]

Serge_Bliznykov
здесь про Word речь.

MergeCells

к Excel относится.

Компилятор сначала прочитает

ActiveDocument.Tables(I).Rows(1).HeadingFormat = True

и сразу же выдаст ошибку, не дойдя до

If Err.Number <> 0 Then

[Solyarka]

Макрос применяю ко всем таблицам в документе.
Примерно поняла, попробую модернизировать под свою задачу.
Мне надо выделить cтолько строк, сколько объядиняет ячейка (1,1).

[viter.alex]

Несколько замечаний:
Если вы работаете со всеми таблицами в документе, то перебирайте их не счетчиком, а как элементы коллекции;
Чтобы ловить ошибку, воспользуйтесь On Error Resume Next

  On Error Resume Next
  Dim oTbl As Table
  For Each oTbl In ActiveDocument.Tables
    With oTbl
      .Rows(1).HeadingFormat = True
      'Если произошла ошибка, связанная с возможностью _
      доступа к отдельным строкам или столбцам.
      If Err.Number = 5991 Or Err.Number = 5992 Then
      'Делаем, что нужно
      '…
      'Очищаем ошибку
      Err.Clear
      End If
    End With
  Next

[Вождь]

Private Function Table_Merged(ByRef mTable As Table) As Boolean
' возвращает True, если таблица mTable имеет объединенные ячейки

    Table_Merged = False
    On Error Resume Next
    If (mTable.Columns(1) Is Nothing) Or _
       (mTable.Rows(1) Is Nothing) Then Table_Merged = True
    
End Function