detecting bullet applied to paragraph object

[keith brickey]

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

Thanks,

Keith

 

[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?

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
(e-mail address removed)
Word MVP site: http://www.word.mvps.org

 

[keith brickey]

Thank you for responding. What is a 'PictureBullet?'

 

[Jean-Guy Marcil]

keith brickey was telling us:
keith brickey nous racontait que :

Thank you for responding. What is a 'PictureBullet?'

A bitmap used as a bullet instead of a font symbol.

--
Salut!
_______________________________________
Jean-Guy Marcil - Word MVP
(e-mail address removed)
Word MVP site: http://www.word.mvps.org