Description 属性

       

返回指定样式的说明。例如,“标题 2”样式的典型说明将是:“正文+字体:Arial、12 磅、加粗、倾斜、段前 12 磅、段后 3 磅、与下段同页、2 级”。String 类型,只读。

示例

本示例新建一篇文档并插入以制表符分隔的列表,以显示活动文档中的样式及其说明。

Dim docActive As Document
Dim docNew As Document
Dim styleLoop As Style

Set docActive = ActiveDocument
Set docNew = Documents.Add

For Each styleLoop In docActive.Styles
    With docNew.Range
        .InsertAfter Text:=styleLoop.NameLocal & Chr(9) _
            & styleLoop.Description
        .InsertParagraphAfter
    End With
Next styleLoop