Selection.InsertCells (Word)
Fügt Zellen in eine vorhandene Tabelle ein.
Die Anzahl der eingefügten Zellen entspricht der Anzahl der Zellen in der Markierung.
InsertCells (ShiftCells)
ShiftCells: Gibt an, wie die Zellen in die vorhandenen Spalten und Zeilen der Tabelle eingefügt werden.
If Selection.Cells.Count >= 1 Then
Selection.InsertCells ShiftCells:=wdInsertCellsShiftRight
For Each aBorder In Selection.Borders
aBorder.LineStyle = wdLineStyleSingle
aBorder.ColorIndex = wdRed
Next aBorder
End If