Sub macro1()
Dim orng As Range
Dim opara As Paragraph
    For Each opara In ActiveDocument.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
    Exit Sub
End Sub