Adds cells to an existing table. The number of cells inserted is equal to the number of cells in the selection.
Note You can also insert cells by using the Add method of the Cells object.
expression.InsertCells(ShiftCells)
expression Required. An expression that returns a Selection object.
ShiftCells Optional WdInsertCells .
Can be one of the following WdInsertCells constants.
Constant | Description |
---|---|
wdInsertCellsEntireColumn | Inserts an entire column to the left of the column that contains the selection. |
wdInsertCellsEntireRow | Inserts an entire row above the row that contains the selection. |
wdInsertCellsShiftDown | Inserts new cells above the selected cells. |
wdInsertCellsShiftRight | Insert new cells to the left of the selected cells. |
Example
This example inserts new cells to the left of the selected cells, and then it surrounds the selected cells with a red, single-line border.
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