ListFormat.CountNumberedItems メソッド (Word)

  • [アーティクル]

指定した ListFormat オブジェクトに箇条書きまたは番号付きの項目と LISTNUM フィールドの数を返します。

構文

式。 CountNumberedItems

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

例

次の使用例は、[段落番号] タブの 2 番目のテンプレートを使用して、現在の選択範囲を箇条書きにします。 その後、作業中の文書で段落番号と行頭文字の付いた項目と LISTNUM フィールドの数をカウントし、結果をメッセージ ボックスに表示します。

Selection.Range.ListFormat.ApplyListTemplate _ 
    ListTemplate:=ListGalleries(wdNumberGallery).ListTemplates(2) 
Msgbox ActiveDocument.CountNumberedItems

次の使用例は、作業中の文書のレベル 1 の箇条書きの中で、段落番号または行頭文字の付いた項目をカウントします。

Msgbox ActiveDocument.Content.ListFormat _ 
    .CountNumberedItems(Level:=1)

次の使用例は、myRange の LISTNUM フィールドの数をカウントします。 結果をメッセージ ボックスに表示します。

Set myDoc = ActiveDocumentSet myRange = _ 
    myDoc.Range(Start:=myDoc.Paragraphs(12).Range.Start, _ 
    End:=myDoc.Paragraphs(50).Range.End) 
numfields = myRange.ListFormat.CountNumberedItems(wdNumberListNum) 
Msgbox numfields

関連項目

ListFormat オブジェクト

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

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