Word) (StyleSheet 物件
代表附加至 Web 檔的單一級聯樣式表單。 StyleSheet 物件是 StyleSheets 集合的成員。 StyleSheets 集合包含所有階層式樣式表附加至指定的文件。
使用 Item 方法或 StyleSheets (Index),其中 Index 是名稱或編號樣式表,來傳回 StyleSheet 物件的 StyleSheets 集合。 下列範例會移除 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
有關於 Office VBA 或這份文件的問題或意見反應嗎? 如需取得支援服務並提供意見反應的相關指導,請參閱 Office VBA 支援與意見反應。