Cell.Delete (Word)

Exclui uma célula ou células de tabela e opcionalmente controla a maneira como as células remanescentes são deslocadas.

Delete (ShiftCells)

ShiftCells: A direção na qual as células remanescentes devem ser deslocadas. Pode ser qualquer constante WdDeleteCells . Se for omitido, as células à direita da última célula excluída serão deslocadas para a esquerda.

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