Wordで文書を作成していると、箇条書きや番号付きリストを使いたくなることがよくありますよね。手動で入力するのもいいですが、同じような作業を繰り返すとき、VBA（Visual Basic for Applications）を使って自動化できたら、作業効率がぐんとアップします。今回は、初心者の方でもわかりやすいように、Word VBAで箇条書きや番号付きリストを自動で作成する方法をご紹介します。
Word VBAって何？
Wordのイメージ
まず、VBAとは、Microsoft Office製品をカスタマイズしたり、自動化したりするためのプログラミング言語です。Wordでも、VBAを使って文書の操作を自動化することができます。
例えば、毎回同じような箇条書きを手動で作成していると、時間がかかりますよね。そこで、VBAを使ってその作業を自動化すれば、ボタン一つで同じ結果を得ることができます。
箇条書きや番号付きリストを自動で作成するVBAマクロの作り方
それでは、実際にVBAを使って箇条書きや番号付きリストを自動で作成するマクロを作ってみましょう。
VBAエディタを開く
まず、Wordを開きます。次に、キーボードの「Alt」キーを押しながら「F11」キーを押すと、VBAエディタが開きます。
新しいモジュールを挿入する
VBAエディタが開いたら、左側の「VBAProject（文書名）」を右クリックし、「挿入」→「モジュール」を選択します。これで、新しいモジュールが追加されます。
マクロのコードを書く
新しく追加されたモジュールに、以下のコードをコピーして貼り付けてください。
vba
Sub CreateBulletList()
Dim para As Paragraph
Dim items As Variant
items = Array("項目1", "項目2", "項目3", "項目4")
For Each para In ActiveDocument.Paragraphs
para.Range.ListFormat.RemoveNumbers NumberType:=wdNumberParagraph
Next para
For i = LBound(items) To UBound(items)
ActiveDocument.Paragraphs.Last.Range.Text = items(i)
ActiveDocument.Paragraphs.Last.Range.InsertParagraphAfter
Next i
ActiveDocument.Paragraphs(1).Range.ListFormat.ApplyBulletDefault
End Sub
このコードは、指定した項目を箇条書きとして文書に追加するものです。
マクロを実行する
コードを貼り付けたら、VBAエディタを閉じて、Wordに戻ります。次に、「Alt」キーを押しながら「F8」キーを押すと、マクロの一覧が表示されます。先ほど作成した「CreateBulletList」を選択し、「実行」をクリックすると、文書に箇条書きが追加されます。
箇条書きだけでなく、番号付きリストも自動化できる！
先ほどのマクロは箇条書きでしたが、番号付きリストも同様に作成できます。以下のコードを試してみてください。
vba
Sub CreateNumberedList()
Dim para As Paragraph
Dim items As Variant
items = Array("項目1", "項目2", "項目3", "項目4")
For Each para In ActiveDocument.Paragraphs
para.Range.ListFormat.RemoveNumbers NumberType:=wdNumberParagraph
Next para
For i = LBound(items) To UBound(items)
ActiveDocument.Paragraphs.Last.Range.Text = items(i)
ActiveDocument.Paragraphs.Last.Range.InsertParagraphAfter
Next i
ActiveDocument.Paragraphs(1).Range.ListFormat.ApplyNumberDefault
End Sub
このコードは、指定した項目を番号付きリストとして文書に追加するものです。
よくある質問や疑問
Q1: VBAマクロを実行するとエラーが出ます。どうすればいいですか？
エラーが出る場合、コードに誤りがある可能性があります。コードを再度確認し、特に「Sub」と「End Sub」の間に正しいコードが書かれているか確認してください。また、VBAエディタで「デバッグ」→「コンパイル」を選択すると、エラーがある場合に警告が表示されます。
Q2: 作成したマクロをボタンに割り当てて、ワンクリックで実行できるようにしたいです。
マクロをボタンに割り当てるには、「クイックアクセスツールバー」にマクロを追加する方法があります。Wordの「ファイル」→「オプション」→「クイックアクセスツールバー」を選択し、「マクロの選択」から作成したマクロを追加してください。これで、ツールバーのボタンをクリックするだけでマクロを実行できます。
今すぐ解決したい！どうしたらいい？
いま、あなたを悩ませているITの問題を解決します！
「エラーメッセージ、フリーズ、接続不良…もうイライラしない！」
あなたはこんな経験はありませんか？
✅ ExcelやWordの使い方がわからない💦
✅ 仕事の締め切り直前にパソコンがフリーズ💦
✅ 家族との大切な写真が突然見られなくなった💦
✅ オンライン会議に参加できずに焦った💦
✅ スマホの重くて重要な連絡ができなかった💦
平均的な人は、こうしたパソコンやスマホ関連の問題で年間73時間（約9日分の働く時間！）を無駄にしています。あなたの大切な時間が今この悩んでいる瞬間も失われています。
LINEでメッセージを送れば即時解決！
すでに多くの方が私の公式LINEからお悩みを解決しています。
最新のAIを使った自動応答機能を活用していますので、24時間いつでも即返信いたします。
誰でも無料で使えますので、安心して使えます。
問題は先のばしにするほど深刻化します。
小さなエラーがデータ消失や重大なシステム障害につながることも。解決できずに大切な機会を逃すリスクは、あなたが思う以上に高いのです。
あなたが今困っていて、すぐにでも解決したいのであれば下のボタンをクリックして、LINEからあなたのお困りごとを送って下さい。
ぜひ、あなたの悩みを私に解決させてください。
まとめ
今回は、Word VBAを使って箇条書きや番号付きリストを自動で作成する方法をご紹介しました。VBAを活用することで、繰り返しの作業を効率化し、時間を節約することができます。初心者の方でも、少しずつVBAに慣れていけば、さまざまな作業を自動化できるようになります。ぜひ、今回のマクロを試してみてください。
他にも疑問やお悩み事があればお気軽にLINEからお声掛けください。
コメント