Mega Code Archive

 

Categories / VisualBasic Script / Word

 

WdDeleteCellsShiftLeft moves cells across to the left to fill the gap

Sub del()     ActiveDocument.Tables(1).Rows(1).Cells(1).Delete _         ShiftCells:=wdDeleteCellsShiftLeft End Sub