Question

该属性返回一个 String 类型的数值，该数值代表 Web 样式表的标题，可读写。

expression.Title

expression 必需。该表达式返回一个 Sylesheet 对象。

示例

本示例为附加到活动文档的前三个 Web 样式表指定标题。本示例假定有三个样式表附加到活动文档。

Sub AssignCSSTitle()
    ActiveDocument.StyleSheets.Item(1).Title = "New Look Stylesheet"
    ActiveDocument.StyleSheets.Item(2).Title = "Standard Web Stylesheet"
    ActiveDocument.StyleSheets.Item(3).Title = "Definitions Stylesheets"
End Sub

本示例创建一个附加到活动文档的 Web 样式表的列表，并将该列表置于新文档中。本示例假定有一个或更多的 Web 样式表附加到活动文档。

Sub CSSTitles()
    Dim docNew As Document
    Dim styCSS As StyleSheet

    Set docNew = Documents.Add

    With docNew.Range(Start:=0, End:=0)
        .InsertAfter "CSS Name : Assigned to " & ThisDocument.Name _
            & vbTab & "Title"
        .InsertParagraphAfter
        For Each styCSS In ThisDocument.StyleSheets
            .InsertAfter styCSS.Name & vbTab & styCSS.Title
            .InsertParagraphAfter
        Next styCSS
        .ConvertToTable
    End With
End Sub