Look for Bullets

Find lists

Unless you have used a style to create a bulleted list, it is difficult to search for them.

This macro locates any bulleted list (wdListBullet) in your document.

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

Other choices might be:

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.

See all Topics