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

Question

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

Представьте себе простую таблицу 2 x 2. Клетки верхнего ряда объединены, ячейки второго ряда нет.

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

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

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

Ваше здоровье

Дэн

Answer 1

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

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