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

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
'_______________________________________