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

皆さん、こんにちは。今日は、WordのVBAを使って、現在のカーソル位置が文書内の何番目の段落にあるのかを取得する方法についてお話しします。普段Wordを使っていて、「今、どの段落にいるんだろう？」と思ったことはありませんか？そんな時に役立つテクニックです。

カーソル位置の段落番号を取得する基本的な方法
段落の先頭にカーソルがある場合の注意点
段落番号の文字列を取得する方法
よくある質問や疑問
1. Q1: マクロを実行しても段落番号が正しく取得できません。なぜでしょうか？
2. Q2: マクロを使って段落番号を取得する際、スタイル設定や書式設定に影響はありますか？
今すぐ解決したい！どうしたらいい？
まとめ

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

Wordのイメージ

まず、基本的な方法から見ていきましょう。Word VBAには、直接カーソル位置の段落番号を取得するプロパティは用意されていません。しかし、工夫することで取得が可能です。具体的には、文書の先頭からカーソル位置までの段落数を数えることで、現在の段落番号を特定します。

以下のマクロを実行すると、カーソル位置の段落番号がメッセージボックスに表示されます。

vba

Sub カーソル位置の段落番号を取得()

    Dim 段落番号 As Integer

    段落番号 = ActiveDocument.Range(0, Selection.End).Paragraphs.Count

    MsgBox "カーソル位置の段落番号は " & 段落番号 & " です。"

End Sub

このマクロは、文書の先頭（位置0）から現在の選択範囲の終わり（Selection.End）までの段落数を数えています。これにより、カーソルがどの段落に位置しているかを特定できます。

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

しかし、この方法には注意が必要です。段落の先頭にカーソルがある場合、前の段落の番号を返してしまうことがあります。これは、VBAがカーソルの直前の文字を基準に段落を判断するためです。

この問題を解決するために、カーソルの直前の文字が改行記号（vbCr）であるかを確認し、必要に応じて段落番号を補正する方法があります。

以下のマクロは、その対応を行っています。

vba

Sub カーソル位置の段落番号を取得_改良版()

    Dim 段落番号 As Integer

    With Selection

        段落番号 = ActiveDocument.Range(0, .Start).Paragraphs.Count

        If .Range.Start <> 0 Then

            If .Characters.First.Previous = vbCr Then

                段落番号 = 段落番号 + 1

            End If

        End If

    End With

    MsgBox "カーソル位置の段落番号は " & 段落番号 & " です。"

End Sub

このマクロでは、カーソル直前の文字が改行記号である場合、段落番号に1を加算しています。これにより、段落の先頭にカーソルがある場合でも正しい段落番号を取得できます。

段落番号の文字列を取得する方法

次に、段落番号の文字列自体を取得する方法をご紹介します。例えば、「1.1」や「A.」といった番号付きの段落を扱う場合です。

以下のマクロを実行すると、選択されている段落の段落番号がメッセージボックスに表示されます。

vba

Sub 選択段落の番号を取得()

    Dim 段落 As Paragraph

    For Each 段落 In Selection.Paragraphs

        MsgBox "段落番号: " & 段落.Range.ListFormat.ListString

    Next 段落

End Sub

このマクロは、選択範囲内の各段落に対して、その段落番号を取得し表示します。段落番号が設定されていない場合は、空の文字列が返されます。