Number Property Example

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