Document.Lists プロパティ (Word)

  • [アーティクル]

指定した文書内のすべての書式設定されたリストを含む Lists コレクションを返します。 読み取り専用です。

構文

式。 Lists

式Document オブジェクトを表す変数。

注釈

コレクションの 1 つのメンバーを返す方法については、「コレクション からオブジェクトを返す」を参照してください。

例

次の使用例は、選択範囲に段落番号を使った箇条書きの書式を設定します。 作業中の文書の箇条書きの数をメッセージ ボックスに表示します。

Selection.Range.ListFormat.ApplyListTemplate _ 
 ListTemplate:=ListGalleries(wdNumberGallery).ListTemplates(2) 
MsgBox "This document has " & ActiveDocument.Lists.Count _ 
 & " lists."

次の使用例は、作業中の文書の 3 番目の箇条書きに、既定の行頭文字の書式を設定して箇条書きにします。 箇条書きに行頭文字の書式が既に設定されている場合、この書式を削除します。

If ActiveDocument.Lists.Count >= 3 Then 
 ActiveDocument.Lists(3).Range.ListFormat.ApplyBulletDefault 
End If

次の使用例は、MyLetter.doc の各箇条書きの項目数をメッセージ ボックスに表示します。

Set myDoc = Documents("MyLetter.doc") 
i = myDoc.Lists.Count 
For each li in myDoc.Lists 
 Msgbox "List " & i & " has " & li.CountNumberedItems _ 
 & " items." 
 i = i - 1 
Next li

関連項目

ドキュメント オブジェクト

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

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