Sub Macro1()
Dim oPara As Paragraph
Dim oRng As Range
    For Each oPara In ActiveDocument.Paragraphs
        Set oRng = oPara.Range
        oRng.End = oRng.End - 1    'omit the paragraph break from the range
        If InStr(1, oRng.Text, Chr(9)) > 0 Then
            oRng.Collapse 0
            oRng.MoveStartUntil Chr(9), wdBackward    'move the start of the range to that position
            MsgBox Trim(oRng.Text)    'this is the text in the paragraph. Trim to remove spurious spaces
            oRng.Collapse 1    'this is the start of the text portion of the paragraph
        End If
    Next oPara
    Set oPara = Nothing
    Set oRng = Nothing
End Sub