This example creates a new document and inserts a tab-delimited list of the active document's styles and their descriptions.
Set myDoc = ActiveDocument
Set newDoc = Documents.Add
For Each sty In myDoc.Styles
With newDoc.Range
.InsertAfter Text:=sty.NameLocal & Chr(9) & sty.Description
.InsertParagraphAfter
End With
Next sty