Sub Macro2()
Dim oPara As Paragraph
Dim oRng As Range, oSel As Range
    Set oSel = Selection.Range
    For Each oPara In oSel.Paragraphs
        If oPara.Style Like "List*" Then
            Set oRng = oPara.Range
            oRng.Collapse 1
            oRng.MoveEndUntil Chr(32)
            oRng.End = oRng.End + 1
            oRng.Text = ""
        End If
    Next oPara
lbl_Exit:
    Set oPara = Nothing
    Set oRng = Nothing
    Set oSel = Nothing
    Exit Sub
End Sub