対象:Word2007, Word2010, Word2013, Windows版Word2016
「word vba 段落番号」
といった検索キーワードでのアクセスが、時折あります。
段落番号に関連したWord VBA(のコードを探していた方による検索です。
また、どのアプリケーションでの話かわかりませんけれど、
「vba 段落番号 取得」
という検索キーワードでのアクセスもあります。
この記事では段落番号を取得するWordマクロをご紹介しておきます。
[スポンサードリンク]
段落番号を取得するサンプルマクロ
以下のSubプロシージャを実行すると、選択されていた段落の段落番号がメッセージボックスに、順番に表示されます。
Sub 段落番号を取得する()
Dim par As Paragraph
For Each par In Selection.Paragraphs
MsgBox par.Range.ListFormat.ListString
Next
End Sub
Dim par As Paragraph
For Each par In Selection.Paragraphs
MsgBox par.Range.ListFormat.ListString
Next
End Sub
サンプルマクロで利用しているオブジェクト式について
ListFormatオブジェクトを使うとWordの箇条書き書式を扱うことができ、段落番号はListStrigプロパティで取得できます。
ListFormatオブジェクトを取得するためのListFormatプロパティは、オブジェクトブラウザーを完全一致検索すると、段落を表すParagraphオブジェクトには存在しておらず、Rangeオブジェクトに用意されていることがわかるので、
上記のマクロでは、
MsgBox par.Range.ListFormat.ListString
というオブジェクト式にしています。
最終更新日時:2020-11-20 10:20
[スポンサードリンク]
- Newer:Offsetの戻り値を変数に
- Older:VBAで条件付き書式を1つだけ削除する
Home » ワードマクロ・Word VBAの使い方 » 段落・パラグラフ » VBAで段落番号の文字列を書式も含めて取得する