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. |
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