Sub Demo()
Application.ScreenUpdating = False
Dim Rng As Range
With Selection
  If .Information(wdWithInTable) = True Then
    Set Rng = .Cells(1).Range
    Rng.End = Rng.End - 1
    MsgBox Rng.Text
  Else
    MsgBox "The selection is not in a table", vbCritical
  End If
End With
Application.ScreenUpdating = True
End Sub