指定した ListFormat オブジェクトには、一連の特性のリストの書式を適用します。
構文
式。ApplyListTemplate (ListTemplate, ContinuePreviousList, ApplyTo, DefaultListBehavior)
expression 必須です。 List オブジェクトを表す変数を指定します。
パラメーター
| 名前 | 必須 / オプション | データ型 | 説明 |
|---|---|---|---|
| ListTemplate | 必須 | ListTemplate | 使用する箇条書きテンプレートを指定します。 |
| ContinuePreviousList | 省略可能 | バリアント型 (Variant) | の 場合は true 以前のリストから番号を継続 False を新しいリストを開始します。 |
| ApplyTo | 省略可能 | バリアント型 (Variant) | 適用するリスト テンプレートの一覧の一部です。 WdListApplyTo 定数として、wdListApplyToSelection、wdListApplyToWholeList、または wdListApplyToThisPointForward のいずれかを指定できます。 |
| DefaultListBehavior | 省略可能 | バリアント型 (Variant) | リストの表示を改善するために、Microsoft Word で新しい Web 指向の書式を使用するかどうかを指定する値を設定します。 次の WdDefaultListBehavior 定数のいずれかを指定できます。wdWord8ListBehavior (Microsoft Word 97 と互換性のある書式設定を使用) または wdWord9ListBehavior (Web 指向の書式設定を使用)。 互換性の理由から、既定の定数は wdWord8ListBehavior ですが、新しいプロシージャでは wdWord9ListBehavior を使用して、インデント リストとマルチレベル リストに関する改善された Web 指向の書式設定を利用する必要があります。 |
例
この例では、変数 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 のサポートおよびフィードバックを参照してください。