Cell.Delete (Word)

Löscht eine Tabellenzelle bzw. Tabellenzellen und steuert, wie die verbleibenden Zellen verschoben werden (optional).

Delete (ShiftCells)

ShiftCells: Die Richtung, in die die verbleibenden Zellen verschoben werden.

Sub DeleteCells() 
 Dim intResponse As Integer 
 
 intResponse = MsgBox("Are you sure you want " & _ 
 "to delete the cells?", vbYesNo) 
 
 If intResponse = vbYes Then 
 ActiveDocument.Tables(1).Cell(1, 1).Delete 
 End If 
End Sub