Quote:
Originally Posted by macropod
If:
surely you already know which type they belong to??
|
Sorry... asking too soon. I'd forgotten ListType.
Code:
Dim oList As List
For Each oList In ActiveDocument.Lists
If oList.Range.ListFormat.ListType = wdListSimpleNumbering Then ''' wdListSimpleNumbering / 3
oList.Range.Select
End If
Next oList