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