Word) (Styles 物件
一群 樣式 代表文件中的內建和使用者定義樣式的物件。
使用 樣式 屬性可傳回 Styles 集合。 下列範例會刪除使用中文件內所有使用者定義的樣式。
For Each sty In ActiveDocument.Styles
If sty.BuiltIn = False Then sty.Delete
Next sty
用於建立新使用者定義的樣式,並將其新增至 Styles 集合的 Add 方法。 下列範例會新增名為"Introduction"的新字元樣式並讓 12 點的 Arial、 粗體和斜體格式。 範例然後將此新的字元樣式套用至選取範圍。
Set myStyle = ActiveDocument.Styles.Add(Name:="Introduction", _
Type:=wdStyleTypeCharacter)
With myStyle.Font
.Bold = True
.Italic = True
.Name = "Arial"
.Size = 12
End With
Selection.Range.Style = "Introduction"
使用 樣式 (Index),其中 Index 是樣式名稱、 WdBuiltinStyle 常數或索引編號,可以傳回單一的 Style 物件。 您必須完全符合的拼字檢查、 間距的樣式名稱,但不是一定大小寫。 下列範例會修改"color"使用中的文件中的使用者定義樣式的字型。
ActiveDocument.Styles("Color").Font.Name = "Arial"
下列範例會將內建的 [標題 1] 樣式設定為非粗體。
ActiveDocument.Styles(wdStyleHeading1).Font.Bold = False
樣式索引編號代表該樣式的樣式名稱的英文字母順序排序清單中的位置。 請注意, Styles(1)
是依字母順序排列的清單中的第一個樣式。 下列範例會顯示 Styles 集合中的第一個樣式的樣式名稱及基底的樣式。
MsgBox "Base style= " _
& ActiveDocument.Styles(1).BaseStyle & vbCr _
& "Style name= " & ActiveDocument.Styles(1).NameLocal
無法使用 Template 物件的 Styles 物件。 不過,您可以使用 OpenAsDocument 若要開啟為文件的範本,讓您可以修改的範本中的樣式的方法。 下列範例會變更在附加至使用中文件之範本的標題 1] 樣式的格式設定。
Set aDoc = ActiveDocument.AttachedTemplate.OpenAsDocument
With aDoc
.Styles(wdStyleHeading1).Font.Name = "Arial"
.Close SaveChanges:=wdSaveChanges
End With
使用 OrganizerCopy 文件和範本之間複製樣式的方法。 使用 UpdateStyles 若要更新樣式以符合樣式定義將附加範本中的將使用中文件的方法。
有關於 Office VBA 或這份文件的問題或意見反應嗎? 如需取得支援服務並提供意見反應的相關指導,請參閱 Office VBA 支援與意見反應。