Ändern Sie die Breite einer zusammengeführten Tabellenzelle in VBA (Word 2010)

Question

In MS Word 2010 ist die Änderung der Breite einer zusammengeführten Zelle etwas knifflig.

Stellen Sie sich eine einfache 2 x 2 -Tabelle vor. Die Zellen der oberen Reihe werden zusammengeführt, die Zellen der zweiten Reihe sind es nicht.

Wenn der Cursor in der Zelle (2, 1) (unter Verwendung von Wortindizes) und der Breite geändert wird, wird die Breite der oberen Reihe so geändert, dass sie der der "aktiven" Zelle entspricht.

Wenn jedoch die Auswahl um das versteckte Zeichen "Ende der Zeile" erweitert wird, beeinflusst die Änderung nur die ausgewählte Zelle wie beabsichtigt.

Weiß jemand, wie man dieses Verhalten in VBA repliziert?

Prost

Dan

Answer 1

Es stellt sich heraus

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