Dim orng As Range
 Dim oTable As Table
    Set orng = Selection.Range
    If orng.Information(wdWithInTable) = True Then
        Set oTable = orng.Tables(1)
        orng.Start = oTable.Range.Start
        orng.Collapse 1
        orng.Select
        Selection.SplitTable
        Set orng = Selection.Range
        orng.Text = "The selection is before the table"
    Else
        orng.Text = "The selection is not in a table"
    End If