Changer la largeur d'une cellule de table fusionnée dans VBA (Word 2010)

Question

Dans MS Word 2010, modifiant la largeur d'une cellule fusionnée est un peu tricksy.

Imaginez une simple table 2 x 2. Les cellules de la rangée supérieure sont fusionnées, les cellules de la seconde rangée sont pas.

Si le curseur placé dans la cellule (2, 1) (à l'aide des indices Word) et la largeur est modifiée, la largeur de la ligne supérieure sera modifiée pour correspondre à celle de la cellule « active ».

Si, toutefois, la sélection est étendue à la « fin de rang » caractère caché, changer alors seulement affecte la cellule sélectionnée, comme prévu.

Quelqu'un sait comment reproduire ce comportement dans VBA?

Vive

Dan

Answer 1

Il s'avère que si vous Cell.Select utilisateur alors le comportement est que je voulais

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