初心者でもできる！Word VBAで段落番号を設定する方法

2025.06.25

Wordで文書を作成していると、段落番号を付けたい場面がよくありますよね。特に契約書やマニュアルなど、項目ごとに番号を付けることで、見やすく整理された文書になります。今回は、そんな段落番号をWord VBAを使って自動で設定する方法を、初心者の方にもわかりやすく解説します。

段落番号とは？
Word VBAで段落番号を設定する方法
段落番号の書式を変更する方法
段落番号を「1から再開」する方法
よくある質問や疑問
今すぐ解決したい！どうしたらいい？
まとめ

段落番号とは？

Wordのイメージ

段落番号とは、文書の各段落に自動で番号を付ける機能です。例えば、契約書の各条項やマニュアルの手順などで、項目ごとに番号を付けることで、内容が整理され、読みやすくなります。

Word VBAで段落番号を設定する方法

Word VBAを使うと、手動で番号を付ける手間を省き、文書を効率的に作成できます。以下に、段落番号を設定する基本的なVBAコードを紹介します。

Wordを開き、「Alt」＋「F11」を押してVBAエディタを開きます。
「挿入」→「標準モジュール」を選択し、新しいモジュールを作成します。
以下のコードをモジュールに貼り付けます

Sub 段落番号を設定()

    With Selection.Range.ListFormat

        .ApplyNumberDefault

        .ListType = wdListNumberStyleArabic

    End With

End Sub

コードを貼り付けたら、「F5」キーを押して実行します。
文書内の選択範囲に段落番号が自動で設定されます。

段落番号の書式を変更する方法

VBAでは、段落番号の書式も自由に変更できます。例えば、番号のスタイルを変更したり、番号の開始番号を指定したりすることが可能です。

以下のコードは、番号のスタイルを変更し、開始番号を指定する例です

Sub 段落番号の書式を変更()

    With Selection.Range.ListFormat

        .ApplyNumberDefault

        .ListType = wdListNumberStyleBullet

        .ListLevelNumber = 1

        .ListValue = 1

    End With

End Sub

このコードを実行すると、選択範囲の段落に番号が付けられ、番号のスタイルが変更されます。

段落番号を「1から再開」する方法

文書内で、特定の段落から番号を「1から再開」したい場合があります。例えば、契約書の各条項ごとに番号をリセットしたい場合です。

以下のコードは、段落番号を「1から再開」する例です

Sub 段落番号を1から再開()

    With Selection.Range.ListFormat

        .ApplyNumberDefault

        .ListType = wdListNumberStyleArabic

        .ListLevelNumber = 1

        .ListValue = 1

        .ContinuePreviousList = False

    End With

End Sub

このコードを実行すると、選択範囲の段落番号が「1から再開」されます。