Метод Cells.Merge (Word)
Объединяет указанные ячейки таблицы друг с другом. Результатом является одна ячейка таблицы.
expression. Объединить
выражение (обязательно). Переменная, представляющая коллекцию Cells.
В этом примере ячейки в строке объединяются в одну ячейку, а затем к строке применяется заливка.
If Selection.Information(wdWithInTable) = True Then
Set myrow = Selection.Rows(1)
myrow.Cells.Merge
myrow.Shading.Texture = wdTexture10Percent
End If
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.