リストの種類を把握する

この段落に適用されているリストは？

ワードVBAについては、エクセルVBAに比べると情報量が少なく、「これをやるにはどうしたら良いの？」という疑問を書籍やネットで解決するのがなかなか難しいです。

本サイトに掲載している「公用文テンプレート」の今回のバージョンアップでは、「箇条書き」と「段落番号」に関する機能を追加しました。その時に悩んだのが、「すでに箇条書きや段落番号が設定されている段落に適用されているリストをどうやって把握するか？」という問題でした。

1つ目の方法は、「ListType」です。

strListType=ActiveDocument.Paragraphs(i)..Range.ListFormat.ListType

これで、i番目の段落に適用されているリストの種類が分かります。

返り値は、wdListBullet（行頭文字付き）、wdListSimpleNumbering（単純な数字付き）、wdListOutlineNumbering（アウトライン）などとなります。

2つ目の方法は、「NumberStyle」です。

strListStyle = ActiveDocument.Paragraphs(i).Range.ListFormat.ListTemplate.ListLevels(1).NumberStyle

これで、i番目の段落に適用されているリストの数字の種類が分かります。ListLevelのアイテムは、現在設定されているスタイルなので「1」で大丈夫です。

返り値は、wdListNumberStyleBullet（箇条書き）、wdListNumberStyleNumberInCircle（丸囲み数字）などとなります。