Mega Code Archive

 

Categories / VisualBasic Script / Word

 

WdDeleteCellsEntireRow deletes the whole row

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