This example returns the bullet number of paragraph one in the selected text range to a variable named myParnum
.
With ActiveWindow.Selection
If .Type = ppSelectionTextRange Then
With .TextRange.Paragraphs(1).ParagraphFormat.Bullet
If .Type = ppBulletNumbered Then
myParnum = .Number
End If
End With
End If
End With