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

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

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

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

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

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

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

Дэн


vba ms-word word-2010
person Dan Kelly    schedule 29.11.2011    source источник

Ответы (1)


arrow_upward
0
arrow_downward

Оказывается, если вы используете User 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
person Dan Kelly    schedule 01.12.2011