Style オブジェクト (Word)
1 つの組み込みスタイルまたはユーザー定義スタイルを表します。 Style オブジェクトには、 Style オブジェクトのプロパティとしてスタイル属性 (フォント、フォント スタイル、段落間隔など) が含まれます。 Style オブジェクトは Styles コレクションのメンバーです。 Styles コレクションには、指定された文書のすべてのスタイルが含まれます。
Styles (Index) を使用して 1 つの Style オブジェクトを取得します (Index には、スタイル名、 WdBuiltinStyle クラスの定数、またはインデックス番号を指定します)。 スタイル名は全角、半角やスペースが正確に一致している必要がありますが、大文字と小文字は区別されません。 次の使用例は、作業中の文書の "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
指定範囲、段落、または複数の段落にスタイルを適用するには、 Style プロパティをユーザー定義スタイルまたは組み込みスタイルのスタイル名に設定します。 次の使用例は、作業中の最初の 4 つの段落に [標準] スタイルを適用します。
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 のサポートおよびフィードバックを参照してください。