使用英语阅读

通过


Word) (StyleSheet 对象

表示附加到 Web 文档的单个级联样式表。 样式表 对象是 样式表 集合中的成员。 样式表 集合中包含所有的级联样式表附加到指定文档。

备注

使用索引所在的名称或编号的样式表,该 样式表 集合返回 样式表 对象的 Item 方法或 样式表 (索引)。 下面的示例移除 样式表 集合中的第二个样式表。

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

使用 索引 属性以确定级联样式表的优先级。 下面的示例创建附加级联样式表的表格,排序和索引根据样式表的重要性。

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

另请参阅

Word 对象模型参考

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈? 请参阅 Office VBA 支持和反馈,获取有关如何接收支持和提供反馈的指南。