Word VBAで段落数を取得する方法：初心者向け解説

Microsoft Wordの文書を操作する際、VBA（Visual Basic for Applications）を使って段落数を取得する方法を知りたい方も多いのではないでしょうか。特に、パソコンやスマホの操作に不安がある方でも、安心して理解できるように、わかりやすく解説します。

VBAでWordの段落数を取得する基本的な方法
1. 段落数を取得するコード
2. 段落数の取得に関する注意点
現在選択している段落の番号を取得する方法
1. 選択した段落の番号を取得するコード
2. 段落番号取得に関する注意点
段落番号が付けられた段落の番号を取得する方法
1. 番号付き段落の番号を取得するコード
2. 番号付き段落番号取得に関する注意点
よくある質問や疑問
今すぐ解決したい！どうしたらいい？
まとめ

VBAでWordの段落数を取得する基本的な方法

Wordのイメージ

まず、VBAを使ってWord文書の段落数を取得する基本的な方法をご紹介します。

段落数を取得するコード

以下のVBAコードを使うと、現在開いているWord文書の段落数を取得できます。

Sub GetParagraphCount()

    MsgBox "この文書には " & ActiveDocument.Paragraphs.Count & " 段落があります。"

End Sub

このコードを実行すると、文書内の段落数がメッセージボックスで表示されます。

段落数の取得に関する注意点

* 空の段落もカウントされるEnterキーを2回押すと、空の段落が挿入されます。これもカウントされるため、文書の段落数が予想以上に多くなることがあります。
* 見出しやリストも含まれる見出しや箇条書きの項目も段落としてカウントされます。

現在選択している段落の番号を取得する方法

文書内で特定の段落を選択している場合、その段落が文書全体の中で何番目の段落かを知りたいことがあります。

選択した段落の番号を取得するコード

以下のVBAコードを使うと、現在選択している段落の番号を取得できます。

Sub GetSelectedParagraphNumber()

    Dim para As Paragraph

    Set para = Selection.Paragraphs(1)

    MsgBox "選択されている段落は文書内で " & para.Range.Start & " 番目の段落です。"

End Sub

このコードを実行すると、選択した段落が文書内で何番目の段落かがメッセージボックスで表示されます。

段落番号取得に関する注意点

* 選択範囲の先頭段落が対象複数の段落を選択している場合でも、最初の段落の番号が取得されます。
* 段落番号の取得方法段落の開始位置を基に番号を計算しています。

段落番号が付けられた段落の番号を取得する方法

文書内で番号付きの段落（例1. 見出し、1.1 サブ見出しなど）がある場合、その番号を取得したいことがあります。

番号付き段落の番号を取得するコード

以下のVBAコードを使うと、番号付き段落の番号を取得できます。

Sub GetNumberedParagraphNumber()

    Dim para As Paragraph

    Set para = Selection.Paragraphs(1)

    If para.Range.ListFormat.ListType <> wdListNoNumbering Then

        MsgBox "この段落の番号は " & para.Range.ListFormat.ListString & " です。"

    Else

        MsgBox "この段落には番号が付いていません。"

    End If

End Sub

このコードを実行すると、選択した段落が番号付きの場合、その番号がメッセージボックスで表示されます。