Question

StyleSheets StyleSheet

该对象代表附加至 Web 文档的单独的级联样式表。StyleSheet 对象是 StyleSheets 集合的一个成员。StyleSheets 集合包含附加至指定文档的所有级联样式表。

使用 StyleSheet 对象

使用 Item 方法或 StyleSheets 集合的 StyleSheets(index) 可返回一个 StyleSheet 对象，其中index 为样式表的名称或序号。下列示例从 StyleSheets 集合中删除第二个样式表。

Sub WebStyleSheets()
    ActiveDocument.StyleSheets.Item(2).Delete
End Sub

使用 Index 属性可确定级联样式表的优先级。下列示例创建一个附加的级联样式表的表格，并根据样式表的重要性进行排序和索引。

Sub CSSTable()
    Dim styCSS As StyleSheet

    With ActiveDocument.Range(Start:=0, End:=0)
        .InsertAfter "CSS Name" & vbTab & "Index"
        .InsertParagraphAfter
        For Each styCSS In ActiveDocument.StyleSheets
            .InsertAfter styCSS.Name & vbTab & styCSS.Index
            .InsertParagraphAfter
        Next styCSS
        .ConvertToTable
    End With
End Sub

使用 Move 方法对附加的样式表的优先级重新排序。下列示例在所有附加的级联样式表中将优先级最高的样式表设为优先级最低的样式表。

Sub MoveCSS()
    ActiveDocument.StyleSheets(1) _
        .Move wdStyleSheetPrecedenceLowest
End Sub