Styles オブジェクト (Word)
スタイル のコレクション 文書の組み込みおよびユーザー定義のスタイルを表すオブジェクト。
Styles コレクションを取得するのにには、 スタイル プロパティを使用します。 次の例では、作業中の文書内のすべてのユーザー定義スタイルを削除します。
For Each sty In ActiveDocument.Styles
If sty.BuiltIn = False Then sty.Delete
Next sty
新しいユーザー定義スタイルを作成し、 Styles コレクションに追加するには、 Add メソッドを使用します。 次の例では、「はじめに」をという名前の新しい文字スタイルを追加し、、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"
を使用して スタイル (インデックス)、位置インデックスは、スタイル名、 wdbuiltinstyle クラス の定数、またはインデックス番号は、1 つの スタイル オブジェクトを返します。 スペルとスタイル名は必ずしも、大文字と小文字の文字間隔を正確に一致する必要があります。 次の例では、作業中の文書の「色」をという名前のユーザー定義スタイルのフォントを変更します。
ActiveDocument.Styles("Color").Font.Name = "Arial"
次の使用例は、組み込みの [見出し 1] スタイルを太字にしないように設定します。
ActiveDocument.Styles(wdStyleHeading1).Font.Bold = False
スタイルのインデックス番号は、コード順に並べられたスタイル名の一覧でのスタイルの位置を表します。 これはアルファベット順の一覧の最初のスタイルであることに Styles(1)
注意してください。 スタイル コレクション内の最初のスタイルのスタイル名と基本スタイルを表示する例を次にします。
MsgBox "Base style= " _
& ActiveDocument.Styles(1).BaseStyle & vbCr _
& "Style name= " & ActiveDocument.Styles(1).NameLocal
Styles オブジェクトは Template オブジェクトからは使用できません。 ただし、 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 のサポートおよびフィードバックを参照してください。