TableOfContents.HeadingStyles プロパティ (Word)

目次または図表目次を作成するときに使用する別のスタイル ([見出し 1] ～ [見出し 9] スタイル以外) を表す HeadingStyles オブジェクトを取得します。 値の取得のみ可能です。

構文

式。 HeadingStyles

式 'TableOfContents' コレクションを表す変数。

例

次の使用例は、HeadingStyles コレクションにスタイルを追加し、コレクション内のすべてのスタイルの名前を表示します。

Dim hsLoop As HeadingStyle 
 
If ActiveDocument.TablesOfContents.Count >=1 Then 
 ActiveDocument.TablesOfContents(1).HeadingStyles.Add _ 
 Style:="Title", Level:=2 
 For Each hsLoop In _ 
 ActiveDocument.TablesOfContents(1).HeadingStyles 
 MsgBox hsLoop.Style 
 Next hsLoop 
End If

次の使用例は、Sales.doc の目次の中で、HeadingStyles コレクションに "Blue" という名前のスタイルを追加します。

With Documents("Sales.doc") 
 .Styles.Add Name:="Blue" 
 .TablesOfContents(1).UseHeadingStyles = True 
 .TablesOfContents(1).HeadingStyles.Add _ 
 Style:="Blue", Level:=4 
End With

関連項目

TableOfContents オブジェクト

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。