【脱・マクロ記録】Wordの表にある「不要な箇条書き」を一瞬で消し去る。プロの自動化への第一歩
こんにちは。自動化の世界へようこそ。
皆さんは、Webサイトや他の資料からWordへ「表」をコピー＆ペーストしたとき、思わぬトラブルに見舞われたことはありませんか？
「表の中に勝手に『・』や『1.』といった箇条書きがついてくる……」
「手動で消そうとしても、消したはずなのにレイアウトが崩れる……」
これ、実はWordの「書式（フォーマット）」という概念が、テキストそのものと密接に結びついているために起こる現象なんです。マクロの記録機能を使って「箇条書きを消す操作」を記録しても、それは「特定のセルの、特定の箇条書きを消す」という命令にしかならず、他のセルには通用しません。
今日は、そんな「マクロの記録」の限界を突破して、ドキュメント内のすべての表をスキャンし、セル内の箇条書きを一括で解除してプレーンなテキストに戻す、真の自動化コードを学んでいきましょう。
ここをクリアすれば、Word VBAの基礎体力はバッチリですよ。
1. 核心：なぜ「マクロの記録」ではダメなのか？
まず、エンジニアとしての視点を持ちましょう。なぜ「マクロの記録」で作成したコードでは、今回のような汎用的なツールが作れないのか。
マクロの記録は、いわば「あなたの動きをビデオ録画している」状態です。
あなたが「A列の1行目の箇条書きを消した」とき、記録されるのは「セル(1, 1)の箇条書きを消せ」という、非常に限定的な命令です。
しかし、私たちが欲しいのは「表の中にどんなセルがあろうとも、見つけ次第、箇条書きを解除せよ」という、「ルール（論理）」に基づいた命令です。
この「ルール」を書くために必要なのが、「ループ（繰り返し処理）」と「オブジェクトの階層構造」の理解です。
2. 実装：箇条書きを一括解除するプロフェッショナル・コード
それでは、実際に動くコードを見てみましょう。このコードは、ドキュメント内のすべての「表（Table）」を巡回し、その中のすべての「セル（Cell）」に対して、「箇条書き設定の解除」という命令を叩き込みます。
Option Explicit
''' <summary>
''' ドキュメント内のすべての表をスキャンし、
''' セル内の箇条書き（箇条書き・段落番号）を解除してプレーンテキスト化する。
''' </summary>
Sub ClearAllBulletsInTables()
Dim targetDoc As Document
Dim targetTable As Table
Dim targetCell As Cell
Dim count As Long
' 高速化のための設定：画面更新を停止する
' これにより、処理中のチラつきを抑え、実行速度を劇的に向上させます
Application.ScreenUpdating = False
Set targetDoc = ActiveDocument
count = 0
' エラーハンドリング：予期せぬエラーが発生しても停止させない準備
On Error GoTo ErrorHandler
' 1. ドキュメント内のすべての「表」を一つずつ取り出す（ループ開始）
For Each targetTable In targetDoc.Tables
' 2. その表の中にあるすべての「セル」を一つずつ取り出す（入れ子のループ）
For Each targetCell In targetTable.Range.Cells
' 3. セル内の「箇条書き設定（ListFormat）」にアクセスし、番号・記号を解除する
' .RemoveNumbers メソッドは、テキストそのものは残し、書式としての箇条書きだけを消し去ります
targetCell.Range.ListFormat.RemoveNumbers
' 処理したセルの数をカウント（後で報告するため）
count = count + 1
Next targetCell
Next targetTable
' 処理完了後のメッセージ
Application.ScreenUpdating = True
MsgBox "完了しました！" & vbCrLf & _
"処理したセル数: " & count & " 個", vbInformation, "自動化成功"
Exit Sub
ErrorHandler:
' エラーが起きた場合は、画面更新を再開してからエラー内容を表示
Application.ScreenUpdating = True
MsgBox "エラーが発生しました。セルの結合状態などが原因の可能性があります。" & vbCrLf & _
"エラー内容: " & Err.Description, vbCritical, "エラー発生"
End Sub3. アーキテクトの解説：コードの「重み」を理解する
このコードには、初学者がステップアップするために不可欠な3つのエッセンスが詰まっています。
① オブジェクトの階層構造（Hierarchy）
Word VBAを扱う上で最も重要なのは、「入れ子構造」を意識することです。
今回のコードは、以下のピラミッドを上から順に降りていっています。
1. Document（文書全体）
2. Tables（その中の表の集まり）
3. Table（個別の表）
4. Cells（その表の中のセルの集まり）
5. Cell（個別のセル）
6. Range（セル内の「範囲」）
7. ListFormat（箇条書きという「性質」）
この階層を一段ずつ確実に降りていくことで、「すべての表の、すべてのセル」という広大な領域を、漏れなくコントロールできるようになります。
② `ListFormat.RemoveNumbers` の魔法
ここが一番のポイントです。
「箇条書きを消す」といっても、2つの方法があります。
- 方法A： セルのテキストを全部消して、書き直す（これでは中身が消えてしまう）
- 方法B： テキストはそのままに、「箇条書きという属性（Property）」だけを剥ぎ取る
`ListFormat.RemoveNumbers` は、まさにこの方法Bを実行します。テキストデータは一切傷つけず、見た目上の「・」や「1.」という書式設定だけをクリアします。これが「プレーンテキスト化」の本質です。
③ パフォーマンスへの配慮 (`ScreenUpdating`)
プロのコードには、ユーザーへの「優しさ」が含まれています。
`Application.ScreenUpdating = False` を入れることで、マクロがセルを一つずつ動かしている様子（画面のチカチカ）を非表示にします。これにより、処理速度が数倍早くなるだけでなく、ユーザーに「今、裏で猛スピードで仕事をしているんだな」という安心感を与えます。
4. 陥りやすい罠：セル結合（Merged Cells）の恐怖
このコードを動かして、もしエラーが出たとしたら……それは多くの場合、「セルの結合」が原因です。
Wordの表において、結合されたセルは、プログラムから見ると「通常のセルとは異なる特殊な構造」を持っています。複雑に結合された表に対してループ処理を行うと、VBAが「次にどのセルに行けばいいのか」を見失い、エラーを吐くことがあります。
対策：
もし結合された表を扱う場合は、エラーハンドリング（`On Error GoTo`）を組み込んでおき、エラーが出たセルをスキップして次に進むような設計にするのが、実務における「堅牢なコード」の作り方です。
最後に
いかがでしたか？
「マクロの記録」から一歩踏み出し、オブジェクトの階層を意識して「ルール」を書く。これが、単なる作業員から、業務を自動化する「エンジニア」へと進化する境界線です。
今回学んだ「ループ」と「階層構造」の考え方は、Wordだけでなく、Excel VBAや他の言語でも全く同じです。この概念をマスターすれば、あなたの武器は一気に広がりますよ。
さあ、次はどんな自動化に挑戦しますか？ 応援しています！
