Help for this page

Select Code to Download

Select or download this

If Selection.Paragraphs(1).Range.ListParagraphs.Count = 1 Then
   MsgBox Selection.Paragraphs(1).Range.ListFormat.ListLevelNumber
Else
   MsgBox "Not a numbered paragraph"
End If

Select or download this

sub doc2pt {
    my (
...
    }
    close DOCPT;
}