Word VBAで箇条書きのスタイルを変更する方法

2025.03.16

皆さん、こんにちは。今日は、WordのVBAを使って箇条書きのスタイルを変更する方法についてお話しします。パソコンやスマホの操作がちょっと苦手な方でも大丈夫です。一緒に学んでいきましょう。

はじめにVBAって何？
箇条書きのスタイルを変更するメリット
VBAで箇条書きのスタイルを変更する基本的な手順
よくある質問や疑問
1. Q1: VBAコードを実行しても何も変わらないのですが、どうすればいいですか？
2. Q2: 他の箇条書きスタイルに変更するにはどうすればいいですか？
今すぐ解決したい！どうしたらいい？
まとめ

はじめにVBAって何？

Wordのイメージ

まず、VBAとは「Visual Basic for Applications」の略で、WordやExcelなどのMicrosoft Office製品を自動化するためのプログラミング言語です。難しそうに聞こえるかもしれませんが、基本を押さえれば便利に使えますよ。

箇条書きのスタイルを変更するメリット

文書内の箇条書きを見やすく、自分好みにカスタマイズできると、読み手にとっても親切です。例えば、●の代わりに■を使ったり、色を変えたりすることで、情報を強調できます。

VBAで箇条書きのスタイルを変更する基本的な手順

では、具体的にVBAを使って箇条書きのスタイルを変更する方法を見ていきましょう。

Wordを開き、AltキーとF11キーを同時に押してVBAエディターを起動します。
左側のプロジェクトエクスプローラーで、操作したい文書を選択し、挿入メニューから「モジュール」を選びます。
新しく挿入されたモジュールに、以下のコードを入力します。

vba

Sub ChangeBulletStyle()

    Dim para As Paragraph

    For Each para In ActiveDocument.Paragraphs

        If para.Range.ListFormat.ListType = wdListBullet Then

            para.Range.ListFormat.ApplyBulletDefault

            para.Range.ListFormat.ListTemplate.ListLevels(1).NumberFormat = ChrW(8226) ' ●に変更

            para.Range.ListFormat.ListTemplate.ListLevels(1).Font.Name = "Wingdings"

        End If

    Next para

End Sub

このコードは、文書内のすべての箇条書きを対象に、スタイルを変更するものです。具体的には、箇条書きのマークを●にし、フォントをWingdingsに設定しています。