Set aParagraph As Word.Paragraph Dim numberingStr As String numberingStr = aParagraph.Range.ListFormat.ListString