Word Macro to find the bulleted text

Sub FindBullet()
Dim rngTarget As Word.Range
Dim oPara As Word.Paragraph
Set rngTarget = Selection.Range
With rngTarget
Call .Collapse(wdCollapseEnd).End = ActiveDocument.Range.End
For Each oPara In .Paragraphs
If oPara.Range.ListFormat.ListType = _ WdListType.wdListBullet Then
oPara.Range.Select
'Selection.Delete Unit:=wdCharacter, Count:=1
'Exit For
End If
Next
End With
End Sub