Fehler bei Merge in Tabelle in Word 2007

[Tomek_FFM]

Hallo zusammen,

ich erstelle eine Tabelle in Word 2007 mit folgendem Makro:

Sub TabErstellen()

    Set myTable = ActiveDocument.Tables.Add(Selection.Range, 3, 2)

    myTable.Columns(1).Select
        Selection.Columns.PreferredWidthType = 3
        Selection.Columns.PreferredWidth = CentimetersToPoints(3)
    
    myTable.Columns(2).Select
        Selection.Columns.PreferredWidthType = 3
        Selection.Columns.PreferredWidth = CentimetersToPoints(3)

    ' Merge Cells
    With myTable
     .Cell(2, 1).Merge (.Cell(2, 2))
    End With

End Sub

Das Problem ist nun, das durch das Merge die Spaltenbreitendefinitionen nicht mehr gelten, wodurch die Tabelle in die Breite gezogen wird.

Jemand eine Idee, woran das liegen könnte?

Ich finde keinen Lösungsansatz mehr, außer im Nachhinein per SetWidth die einzelnen Zellenbreiten wieder richtig einzustellen, was aber eine unschöne Lösung wäre.

Gruß
Tomek