こんにちは！ Wordの自動化の世界へようこそ。
マクロの記録ボタンを押して「なんだかよく分からないけれど動いた！」と感動したのも束の間、自分でコードを直そうとした途端にフリーズしたり、意図しない場所が変わって頭を抱えたりしていませんか？
大丈夫。今日は、バラバラになった段落番号の書式を一網打尽にし、文書全体の統一感を美しく整えるための「Word VBAの基本と本質」を、優しく、そして深くお伝えします。
ここをクリアすれば、Word VBAの基本構造はバッチリですよ。さあ、一緒に扉を開けましょう。
—
なぜ、段落番号の書式はバラバラになるのか？
実務で作成するドキュメント、例えば仕様書や提案書。これらは複数のメンバーで共同編集したり、あちこちからコピペを繰り返したりするうちに、段落番号の「フォント」や「サイズ」「インデント」がバラバラになりがちです。
「手動で選択して直せばいいじゃないか」と思いますよね？
ページ数が数十ページ、数百ページとなると、それはもはや拷問です。しかも、人間の目で行う修正には必ず「見落とし」が発生します。
ここでVBA（Visual Basic for Applications）の出番です。
コンピュータに「この文書の中にあるすべての段落番号を、このスタイルに統一しなさい」と命令すれば、一瞬で、完璧に、ミスのない美しい文書が完成します。
—
押さえておきたいWord VBAの基本構造
Word VBAを操る上で、絶対に知っておかなければならない大原則があります。それは「対象（オブジェクト）を指定して、プロパティ（属性）を変更する」というルールです。
Wordの文書は、マトリョーシカのような階層構造をしています。
- Document（文書） ＞ Paragraphs（段落の集まり） ＞ Paragraph（ひとつの段落）
今回は、文書全体（`ActiveDocument`）の中にあるすべての段落（`Paragraphs`）を上から順に舐めるようにチェックし、条件に合うものを整えていくというアプローチを取ります。
—
実践！段落番号を一括置換するスマートなコード
それでは、現場でそのままコピペして使える実用的なコードをご紹介します。
今回は初心者の方に向けて、複雑なエラー処理あえて削ぎ落とし、仕組みが直感的にわかるシンプルかつ堅牢なコードを用意しました。
Sub FormatParagraphNumbers()
‘ 変数の宣言（箱を用意するイメージです）
Dim targetDoc As Document
Dim p As Paragraph
Dim targetStyle As String
‘ 適用したいスタイル名をここで定義します（例：「リスト番号」や独自のスタイル名）
targetStyle = “リスト番号”
‘ アクティブな（今開いている）文書を対象に設定
Set targetDoc = ActiveDocument
‘ 念のため、指定したスタイルが文書内に存在するかチェックする優しさ
On Error Resume Next
targetDoc.Styles(targetStyle)
If Err.Number <> 0 Then
MsgBox “エラー: スタイル ‘” & targetStyle & “‘ がこの文書に見つかりません。”, vbCritical, “処理中断”
Exit Sub
End If
On Error GoTo 0 ‘ エラー監視を元に戻す
‘ 進行状況がわかりやすいように画面更新を一度止めても良いですが、
‘ 初心者の方は動きが見える方が安心なので、そのまま実行します。
‘ 文書内のすべての段落をひとつずつ巡回する（これが基本のループです）
For Each p In targetDoc.Paragraphs
‘ 段落に「箇条書き・段落番号」が設定されているか判定する
‘ ListFormat.ListType が wdListNoNumber 以外であれば、何かしらの番号・箇条書きがついていると判定
If p.Range.ListFormat.ListType <> wdListNoNumber Then
‘ 指定したスタイルを一括で強制適用する
p.Style = targetStyle
End If
Next p
‘ 完了の合図
MsgBox “段落番号の書式統一が完了しました！”, vbInformation, “処理成功”
End Sub
コードのここがポイント！
1. `For Each p In targetDoc.Paragraphs`
文書の先頭から最後尾まで、段落を1つずつ変数 `p` に代入しながら自動でループしてくれます。この「コレクションの巡回」はWordマクロの最も基本にして最強のイディオムです。
2. `p.Range.ListFormat.ListType`
「ただの文章」と「番号付きリスト」をVBAに見分させるための魔法のプロパティです。これがあるおかげで、通常の本文まで巻き込んでスタイルが変わってしまう事故を防げます。
3. 安全装置（エラーチェック）
指定したスタイル名が存在しない場合にマクロがクラッシュするのを防ぐため、事前にスタイル有無をチェックする親切設計にしています。
—
初心者がハマりやすい「3つの罠」と回避策
VBAを書き始めると、誰もが一度は次のような壁にぶつかります。ここを知っておくだけで、開発スピードが何倍も変わりますよ。
1. 「スタイル名」のローカライズ問題
Wordの日本語版では、画面上に「見出し 1」や「リスト番号」と表示されていても、VBA内部では英語名（`Heading 1`, `List Number`）で指定しなければ通らないケースがあります。
もし「スタイルが見つかりません」というエラーが出たら、あらかじめWordの「スタイルの管理」画面から、正確なスタイル名を確認するか、日本語名がそのまま通るかテストしてみてください。
2. 処理速度の壁（画面描画の最適化）
今回のコードは短いので問題ありませんが、ページ数が数百ページある巨大な文書をループさせると、画面がピカピカと点滅しながら非常に遅くなります。
プロの現場では、ループの直前に以下を記述して画面描画を止め、処理を爆速化させます。
Application.ScreenUpdating = False
‘ — ここにループ処理 —
Application.ScreenUpdating = True
※今回は仕組みの理解を優先してあえて外していますが、実務で数千行を扱うようになったら思い出してくださいね。
3. 「マクロの記録」への過度な依存
マクロの記録は素晴らしい機能ですが、記録されるコードは「今、カーソルがある場所だけ」を相手にする冗長なコードになりがちです。「記録して終わり」ではなく、今回紹介したような `For Each` を使った「文書全体を自動で巡回する仕組み」に書き換えることこそが、マクロから卒業してエンジニアへステップアップする第一歩です。
—
おわりに
お疲れ様でした！
今回学んだ「段落を巡回し、条件に合うものだけに特定の処理を施す」というアプローチは、段落番号の整形だけでなく、文字の置換、不要な空行の削除、表の装飾など、あらゆるWord自動化のベースとなる極めて強力なテクニックです。
「面倒くさい手作業」を「一瞬で終わる知的自動化」に変える快感を、ぜひご自身の環境でも味わってみてください。
あなたのWord VBAライフが、ここからさらに豊かで快適なものになりますように。それではまた、次の技術でお会いしましょう！
