Изменение ширины объединенной ячейки таблицы в VBA (Word 2010)

Question

В MS Word 2010 изменение ширины объединенной ячейки немного сложнее.

Представьте себе простой стол 2 х 2. Ячейки верхнего ряда объединяются, ячейки второго ряда - нет.

Если курсор находится в ячейке (2, 1) (с использованием индексов Word) и ширина изменяется, то ширина верхнего ряда будет изменена в соответствии с шириной активной ячейки.

Если, однако, выбор расширен за счет включения скрытого символа «Конец строки», то изменение влияет только на выбранную ячейку, как и предполагалось.

Кто-нибудь знает, как повторить это поведение в VBA?

Приветствия

Dan

Answer 1

Оказывается, что если вы пользователь Cell.Select, то поведение будет таким, как я хотел

With Selection.Table(1)
    .Cell(1, 1).Select
    .Selection.Cells.Width = MillimetersToPoints(150)
    .Cell(2, 1).Select
    .Selection.Cells.Width = MillimetersToPoints(150)
    .Cell(3, 1).Select
    .Selection.Cells.Width = MillimetersToPoints(50)
    .Cell(3, 2).Select
    .Selection.Cells.Width = MillimetersToPoints(100)
End With