Sub Macro1()
Dim oRng As Range
    Set oRng = Selection.Range
    With oRng.Find
        .ClearFormatting
        .Replacement.ClearFormatting
        Do While .Execute(findText:=Chr(13))
            If oRng.Information(wdWithInTable) = False Then
                If oRng.InRange(Selection.Range) = False Then GoTo lbl_Exit
                oRng.Text = ""
            End If
        Loop
    End With
lbl_Exit:
    Set oRng = Nothing
    Exit Sub
End Sub