Word) (樣式物件
代表單一內建或使用者定義的樣式。 Style 物件會包含 style 屬性 (例如字型、 字型樣式及段落間距) 作為 Style 物件的屬性。 Style 物件屬於 樣式 集合。 Styles 集合包含在指定的文件中的所有樣式。
使用 樣式 (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
將樣式套用至範圍、 段落或多個段落,設定 [ 樣式 ] 為使用者定義或內建樣式名稱的屬性。 下列範例會將 [一般] 樣式套用至使用中文件前四個段落。
Set myRange = ActiveDocument.Range( _
Start:=ActiveDocument.Paragraphs(1).Range.Start, _
End:=ActiveDocument.Paragraphs(4).Range.End)
myRange.Style = wdStyleNormal
下列範例會將 [標題 1] 樣式套用到選取範圍內的第一個段落。
Selection.Paragraphs(1).Style = wdStyleHeading1
下列範例會建立名為 "Bolded" 的字元樣式,然後將它套用到選取範圍。
Set myStyle = ActiveDocument.Styles.Add(Name:="Bolded", _
Type:=wdStyleTypeCharacter)
myStyle.Font.Bold = True
Selection.Range.Style = "Bolded"
使用 OrganizerCopy 文件和範本之間複製樣式的方法。 使用 UpdateStyles 若要更新樣式以符合樣式定義將附加範本中的將使用中文件的方法。 使用 OpenAsDocument 若要開啟為文件的範本,讓您可以修改的範本樣式的方法。
有關於 Office VBA 或這份文件的問題或意見反應嗎? 如需取得支援服務並提供意見反應的相關指導,請參閱 Office VBA 支援與意見反應。