detecting bullet applied to paragraph object

K

keith brickey

How can I detect whether or not a bullet has been applied to a paragraph?

Thanks,

Keith
 
J

Jean-Guy Marcil

keith brickey was telling us:
keith brickey nous racontait que :
How can I detect whether or not a bullet has been applied to a
paragraph?
Click to expand...

Here is a little something to get you going:

'_______________________________________
'Use the commented lines instead of the other ones
'if you want to work with a user selection
'that could encompass many paragraphs

Dim myPara As Paragraph
'Dim myRange As Range

Set myPara = Selection.Paragraphs(1)
'Set myRange = Selection.Range

With myPara
'With myRange
Select Case Range.ListFormat.ListType
' Select Case .ListFormat.ListType
Case wdListBullet
MsgBox "This selection has a bullet."
Case wdListListNumOnly
MsgBox "This selection has field numbering."
Case wdListMixedNumbering
MsgBox "This selection has some numbering and /or bullets."
Case wdListNoNumbering
MsgBox "This selection has no bullet or numbering."
Case wdListOutlineNumbering
MsgBox "This selection has an outline numbering scheme."
Case wdListPictureBullet
MsgBox "This selection has a picture bullet."
Case wdListSimpleNumbering
MsgBox "This selection has simple numbering."
End Select
End With
'_______________________________________

--
Salut!
_______________________________________
Jean-Guy Marcil - Word MVP
[email protected]
Word MVP site: http://www.word.mvps.org
 
Top