英語で読む

次の方法で共有


List.ApplyListTemplateWithLevel メソッド (Word)

箇条書きの書式を設定します。オプションでレベルを指定することもできます。

構文

expression. ApplyListTemplateWithLevel( _ListTemplate_ , _ContinuePreviousList_ , _DefaultListBehavior_ , _ApplyLevel_ )

'List' オブジェクトを表す変数。

パラメーター

名前 必須 / オプション データ型 説明
ListTemplate 必須 ListTemplate 使用する箇条書きテンプレートを指定します。
ContinuePreviousList 省略可能 バリアント型 (Variant) 場合は true 以前のリストから番号を継続 False を新しいリストを開始します。
DefaultListBehavior 省略可能 バリアント型 (Variant) Microsoft Word を使用して新しい Web 指向の形式のリストを適切に表示するかを指定する値を設定します。 WdDefaultListBehavior 定数は、次のいずれかをすることができます: wdWord8ListBehavior (Microsoft Word 97/98年と互換性のある書式を使用します) または wdWord9ListBehavior (Web 指向形式を採用)。 互換性の理由から、既定の定数 wdWord8ListBehavior が、新しいプロシージャを使用して、 wdWord9ListBehavior 向上 Web 指向のインデントの書式を利用するのには、複数レベルの一覧が表示。
ApplyLevel 省略可能 バリアント型 (Variant) 箇条書きテンプレートを適用するレベル。

次の使用例は、作業中の文書の範囲に変数 myRange を設定し、範囲にリストの書式設定があるかどうかを確認します。 箇条書きの書式が含まれていない場合、[アウトライン] タブの 4 番目のテンプレートをこの範囲に設定します。

Set myDoc = ActiveDocument 
Set myRange = myDoc.Range( _ 
 Start:= myDoc.Paragraphs(3).Range.Start, _ 
 End:=myDoc.Paragraphs(6).Range.End) 
If myRange.ListFormat.ListType = wdListNoNumbering Then 
 myRange.ListFormat.ApplyListTemplate _ 
 ListTemplate:=ListGalleries(wdOutlineNumberGallery) _ 
 .ListTemplates(4) 
End If

関連項目

オブジェクトの一覧表示

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

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