Mega Code Archive

 

Categories / VisualBasic Script / Word

 

WdDeleteCellsShiftUp moves cells up to fill the gap

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