Code:
Dim str As String
Dim oRange As Range
With ActiveDocument
With .Tables(1)
For Each Cell In .Range.Cells
With Selection
Set oRange = Cell.Range
With oRange
''' It seems that for table cells .Start cannot function
''' First we should .End = .End - 1 first
.End = .End - 1
.Start = .Start + 1
.Delete
End With
End With
Next
End With
End With
See the comments above.