【VBA極限設計】「網掛け」を無慈悲に排除せよ：実務で生き残る文書クリーンアップの流儀
業務の現場で、コピペを繰り返した末に「なぜか消せない灰色の網掛け」が文章に居座る現象に遭遇したことはないだろうか？
あれは単なる表示上の汚れではない。文書の構造を破壊し、後のスタイル適用を阻害する「技術的負債」だ。Word VBAにおいて、段落の網掛けは`Borders`オブジェクトと`Shading`オブジェクトが複雑に絡み合う。初心者が陥りやすいのは、単純にループを回して力任せに書式を削除し、Wordのメモリリークや動作不安定を誘発することだ。
今日は、単に網掛けを消すためだけのコードではない。「文書の整合性を保ちながら、高速かつ安全にオブジェクトをクリーンアップする」ための、プロダクション品質のコードを授ける。
—
1. なぜ「力任せのループ」は破綻するのか
多くの解説サイトでは、`For Each para In ActiveDocument.Paragraphs` を使い、その中で `para.Shading.BackgroundPatternColor = wdColorAutomatic` と書くよう教える。しかし、それは甘い。
- 境界線の罠: 網掛けは `Paragraph.Shading` だけでなく、`Borders` オブジェクトの影や、さらには「文字単位」の網掛けが混在している場合がある。
- パフォーマンスの壁: 何千行もある文書で、段落ごとに個別にプロパティへアクセスすると、WordのUIスレッドをブロックし、フリーズを招く。
- undo（元に戻す）の崩壊: 適切に処理をまとめないと、ユーザーが「Ctrl+Z」で戻せなくなる。
我々が目指すべきは、「最小のアクセスで、最大のクリーンアップを行う」ロジックだ。
—
2. 実装コード：堅牢なクリーンアップ・エンジン
このコードは、単に網掛けを消すだけでなく、Wordの内部オブジェクトに対して「リセット命令」を最適化して発行する。
Option Explicit
‘ ==========================================================
‘ 機能：文書全体の「段落網掛け」および「枠線」を強制解除する
‘ 設計：処理をUndoグループにまとめ、予期せぬ挙動を防ぐ
‘ ==========================================================
Public Sub CleanUpParagraphShading()
Dim doc As Document
Dim para As Paragraph
Set doc = ActiveDocument
‘ 処理開始前にUndoのポイントを記録
Application.UndoRecord.StartCustomRecord “網掛け一括解除”
‘ 画面更新を停止し、処理速度を向上させる
Application.ScreenUpdating = False
On Error GoTo ErrorHandler
For Each para In doc.Paragraphs
‘ 1. 段落全体の背景色をクリア
With para.Shading
.Texture = wdTextureNone
.ForegroundPatternColor = wdColorAutomatic
.BackgroundPatternColor = wdColorAutomatic
End With
‘ 2. 段落の枠線をクリア（網掛けとセットで設定されがち）
para.Borders.Enable = False
Next para
MsgBox “網掛けの除去が完了しました。”, vbInformation
Cleanup:
Application.ScreenUpdating = True
Application.UndoRecord.EndCustomRecord
Exit Sub
ErrorHandler:
MsgBox “エラーが発生しました: ” & Err.Description, vbCritical
Resume Cleanup
End Sub
—
3. このコードが「プロダクション品質」である理由
1. `UndoRecord.StartCustomRecord` の採用
これが重要だ。これを入れなければ、ユーザーは数千行の変更を一つずつ「元に戻す」羽目になる。一括処理は、常に「一つの操作」としてUndoスタックに積むのがプロの作法だ。
2. `ScreenUpdating = False` の徹底
Wordは描画処理が非常に重い。ループ中の画面更新を止めるだけで、処理速度は数倍から数十倍に跳ね上がる。
3. エラーハンドリングの分離
`On Error GoTo` を用いて、処理中に万が一フリーズしても `ScreenUpdating` が `True` に戻るよう、`Cleanup` ラベルで出口を統一している。ユーザーを「画面が固まったままのWord」に放置してはならない。
—
4. さらなる高みへ：データベース・外部連携時の注意点
もしあなたが、このツールを「外部からテキストを流し込み、フォーマットを整える」といったシステムの一部として組み込むなら、以下の点に留意せよ。
- スタイル優先の原則: 網掛けを消すのはあくまで「後処理」である。本来は `Style` を適用して管理すべきだ。VBAで網掛けを消すのは、いわば「泥沼の現場を掃除する」作業。恒久的な対策は、Wordのテンプレート（.dotm）に適切なスタイル定義を埋め込むことにある。
- 巨大文書のメモリ管理: `ActiveDocument.Paragraphs` を直に回すのが重すぎるほどの超巨大文書の場合、`Range` オブジェクトを使用して、特定の範囲（SelectionやStoryRanges）に絞って処理を行う設計に変更すること。
—
最後に：エンジニアとしての矜持
VBAはレガシーと言われることもある。しかし、Wordという巨大なブラックボックスを制御し、文書の「汚れ」を瞬時に取り除くこの技術は、依然として現場の生産性を守る最強の武器だ。
「とりあえず動くコード」を書くのは誰でもできる。「誰が使っても壊れず、後から保守する人間が絶望しないコード」を書くことこそが、真のエンジニアの仕事だ。
さあ、このコードをあなたのツールボックスに加え、文書を美しくクリーンアップしてほしい。
