Description Property Example

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