WordVBA-各行の先頭にハイフン追加

Sub prc各行の先頭にハイフン追加()
    ' 機能概要: Wordの文章の各行の先頭に「-」を追記し、処理中の行番号をステータスバーに表示する
    ' 留意点: 文章が空の場合、追記は行われない

    Dim rngLine As Range      ' 各行を参照するための範囲
    Dim lngLineCount As Long  ' 文章の行数を格納する
    Dim lngCurrentLine As Long ' 現在処理中の行番号

    ' Wordの文章の行数を取得する
    lngLineCount = ActiveDocument.Paragraphs.Count

    ' 各行の先頭に「-」を追記する
    For lngCurrentLine = 1 To lngLineCount
        ' ステータスバーに現在処理中の行番号を表示する
        Application.StatusBar = "Processing line " & lngCurrentLine & " of " & lngLineCount

        Set rngLine = ActiveDocument.Paragraphs(lngCurrentLine).Range
        rngLine.InsertBefore "-"
    Next lngCurrentLine

    ' 処理完了後、ステータスバーのメッセージをリセットする
    Application.StatusBar = False

End Sub