Unofficial Word Stuff

Book

Suggestions

Home Page

Bloglines

1906
CelebrateStadium
2006

OfficeZealot

Scobleizer

TechRepublic

AskWoody

SpyJournal

Thursday, February 01, 2007 – Permalink –
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.

For other macros see Tribbs.co.uk

See all Topics
Labels: Macros

<Doug Klippert@ 5:33 AM

Comments: Post a Comment