Cambie el ancho de una celda de mesa fusionada en VBA (Word 2010)

Question

En MS Word 2010, cambiar el ancho de una celda fusionada es un poco engañoso.

Imagina una mesa simple de 2 x 2. Las celdas de la fila superior se fusionan, las celdas de la segunda fila no lo están.

Si el cursor colocado en la celda (2, 1) (usando índices de palabras) y el ancho cambia, entonces el ancho de la fila superior se cambiará para que coincida con el de la celda "activa".

Sin embargo, si la selección se extiende para incluir el carácter oculto "Fin de la fila", entonces el cambio solo afecta la celda seleccionada, según lo previsto.

¿Alguien sabe cómo replicar este comportamiento en VBA?

Salud

Dan

Answer 1

Resulta que si usa celdas. Seleccione, entonces el comportamiento es como quería

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