Mega Code Archive

 

Categories / VisualBasic Script / Word

 

Deletes the first cell in the first row of the first table in the active document and shifts the other cells in the first row to the

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