Thursday, February 20, 2014

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

No comments: