次の方法で共有

ListTemplates オブジェクト (Word)

  • [アーティクル]

ドキュメント、リスト ギャラリー、またはテンプレート内の ListTemplate オブジェクトのコレクション。

注釈

ListTemplates コレクションを取得するには、Document、ListGallery、または Template オブジェクトで ListTemplates プロパティを使用します。 ListGallery オブジェクトでは、ListTemplates コレクションは箇条書き、番号付きリスト、およびアウトライン番号付きリストの 7 つのリスト形式です。

次の使用例は、作業中の文書の各箇条書きテンプレートのレベルの状態 (複数または単一レベル) を示すメッセージを表示します。

For Each lt In ActiveDocument.ListTemplates 
 MsgBox "This is a multiple-level list template - " _ 
 & lt.OutlineNumbered 
Next lt

Add メソッドを使用して、指定した文書またはテンプレートのコレクションに箇条書きテンプレートを追加します。 次の使用例は、新しい箇条書きテンプレートを作業中の文書に追加し、選択範囲にこの箇条書きテンプレートを設定します。

Set myLT = ActiveDocument.ListTemplates.Add 
Selection.Range.ListFormat.ApplyListTemplate ListTemplate:=myLT

ListTemplates (Index) (Index) は、リスト テンプレートまたはインデックス番号の名前を使用して、ドキュメントまたはテンプレート内の 1 つのリスト テンプレートを返します。 次の使用例は、作業中の文書の "ListBullets" という名前のリスト テンプレートと等しいオブジェクト変数を設定し、選択範囲をそのリスト テンプレートの最初のレベルとして書式設定します。

Set mylt = ActiveDocument.ListTemplates("ListBullets")
Selection.Range.ListFormat.ApplyListTemplateWithLevel ListTemplate:=mylt, ApplyLevel:=1

ListTemplates (Index) (Index は 1 から 7 の数値) を使用して、リスト ギャラリー内の 1 つのリスト テンプレートを返します。 次の使用例は、箇条書きギャラリーの最初のリスト テンプレートと等しいオブジェクト変数を設定し、そのリスト テンプレートを選択範囲に適用します。

Set mylt = ListGalleries(wdBulletGallery).ListTemplates(1) 
Selection.Range.ListFormat.ApplyListTemplate ListTemplate:=mylt

注:

一部のプロパティとメソッド ( Convert and Add など) は、リスト ギャラリー内のリスト テンプレートでは機能しません。 これらのリスト テンプレートは変更できますが、リスト ギャラリーの種類 (wdBulletGallery、 wdNumberGallery、または wdOutlineNumberGallery) を変更することはできません。

リスト ギャラリー内のリスト テンプレートに Word に組み込まれている書式が含まれているかどうかを確認するには、ListGallery オブジェクトで Modified プロパティを使用します。 書式設定を元のリスト形式にリセットするには、ListGallery オブジェクトの Reset メソッドを使用します。

ListTemplate オブジェクトを取得した後、引数 Index に 1 ～ 9 の範囲の数字を指定し、 ListLevels (Index) を使用して、単一の ListLevel オブジェクトを取得します。 ListLevel オブジェクトでは、指定した箇条書きのレベルのすべての書式関連のプロパティ、たとえば、 Alignment 、 Font 、 NumberFormat 、 NumberPosition 、 NumberStyle 、 TrailingCharacter などを使用できます。

Convert メソッドを使用して、複数レベルの箇条書きテンプレートを単一レベルの箇条書きテンプレートに変換します。

関連項目

Word オブジェクト モデル リファレンス

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

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