Find lists

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
Exit For
End If
Next
End With
End Sub

wdListListNumOnly

ListNum fields that can be used in the body of a paragraph.

wdListMixedNumbering

Mixed numeric list.

wdListNoNumbering

List with no bullets, numbering, or outlining.

wdListOutlineNumbering

Outlined list.

wdListPictureBullet

Picture bulleted list.

wdListSimpleNumbering

Simple numeric list.

Labels: Formatting, Macros, Reference, Tips, VBA