Word VBAでカーソル位置の段落番号を取得する方法

Word文書で段落番号を自動的に付ける機能は便利ですが、VBA（マクロ）を使ってカーソル位置の段落番号を取得する方法をご存じでしょうか？特に、段落番号が自動で更新される場合など、手動で確認するのが難しい場面で役立ちます。今回は、初心者の方でもわかりやすいように、実際のコード例とともに解説します。

カーソル位置の段落番号を取得する基本的な方法
カーソルが段落の先頭にある場合の注意点と対策
セクション区切りを考慮した段落番号の取得方法
ListNumフィールドを考慮した段落番号の取得方法
よくある質問
今すぐ解決したい！どうしたらいい？
まとめ

カーソル位置の段落番号を取得する基本的な方法

Wordのイメージ

まず、最も基本的な方法からご紹介します。以下のVBAコードを使うと、カーソルがある段落の番号を取得できます。

Sub GetParagraphNumber()

    Dim paraNum As Integer

    paraNum = Selection.Range.Paragraphs.Count

    MsgBox "カーソル位置の段落番号は: " & paraNum

End Sub

このコードでは、カーソル位置を含む範囲の段落数をカウントしています。カーソルが文書の先頭にある場合でも、正しい段落番号が表示されます。

カーソルが段落の先頭にある場合の注意点と対策

ただし、カーソルが段落の先頭にある場合、上記の方法では直前の段落番号が取得されてしまうことがあります。これを防ぐためには、カーソルの直前が改行（vbCr）であるかを確認し、必要に応じて補正を加える必要があります。

Sub GetCorrectParagraphNumber()

    Dim paraNum As Integer

    If Selection.Characters.First.Previous = vbCr Then

        paraNum = Selection.Range.Paragraphs.Count + 1

    Else

        paraNum = Selection.Range.Paragraphs.Count

    End If

    MsgBox "カーソル位置の段落番号は: " & paraNum

End Sub

このコードでは、カーソルの直前が改行であるかを確認し、改行があれば段落番号を1つ増やしています。

セクション区切りを考慮した段落番号の取得方法

文書にセクション区切りが含まれている場合、セクションごとに段落番号がリセットされることがあります。セクションごとの段落番号を取得するには、以下のようにセクションごとに段落数をカウントする方法があります。

Sub GetParagraphNumberBySection()

    Dim i As Integer

    Dim paraNum As Integer

    For i = 1 To ActiveDocument.Sections.Count

        paraNum = ActiveDocument.Range(0, ActiveDocument.Sections(i).Range.End).Paragraphs.Count

        MsgBox "セクション " & i & " の段落番号は: " & paraNum

    Next i

End Sub

このコードでは、各セクションの終了位置までの段落数をカウントし、セクションごとの段落番号を取得しています。

ListNumフィールドを考慮した段落番号の取得方法

文書内にListNumフィールドが使用されている場合、段落番号を取得するにはListFormatオブジェクトを利用する方法があります。

Sub GetListNumParagraphNumber()

    Dim paraNum As String

    paraNum = Selection.Range.ListFormat.ListString

    MsgBox "カーソル位置のListNumフィールドの段落番号は: " & paraNum

End Sub

このコードでは、カーソル位置のListNumフィールドの段落番号を取得しています。