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