表の深淵を浄化せよ：Word VBAにおけるTableオブジェクト内の図形一括削除の極意
業務自動化の最前線において、Wordドキュメントは単なる文書ではない。それは、構造化されたデータが流し込まれる「器」であり、時にはレガシーなマクロや手作業によるコピペの果てに、目に見えないゴミ（不要なオブジェクト）が堆積する「戦場」でもある。
特に、動的に生成される表（Table）の中に、本来不要なオートシェイプやテキストボックスが残留しているケースは、レイアウトの崩壊やファイルサイズの肥大化、そして最終的なドキュメントの破損を招く。
今回は、シニアエンジニアが保守現場で直面する「表内の図形クリーンアップ」に焦点を当てる。単なるループ処理を超えた、オブジェクトのライフサイクルとパフォーマンスを掌握するための設計思想を伝授する。
—
1. なぜ `ActiveDocument.Shapes` では不十分なのか
初心者は `ActiveDocument.Shapes` を全走査して削除しようとする。しかし、それは「外科手術」ではなく「爆撃」だ。ヘッダーのロゴや、ページ背景の透かしまで消し去ってしまう。
我々が狙うのは、特定のTableオブジェクト、あるいは特定のセルの中に「アンカー（碇）」を下ろしている図形のみである。
Wordのオブジェクトモデルにおいて、図形には2つの状態がある：
1. InlineShapes: 文字列として扱われる図形。
2. Shapes: 浮動レイヤーに存在し、特定のRangeにアンカーを持つ図形。
この両者を、TableのRangeというスコープに閉じて制御することが、プロフェッショナルな実装の第一歩となる。
—
2. アーキテクチャ：Rangeオブジェクトからの逆引き
特定の表内の図形を削除する場合、`Table.Range` を取得し、その範囲内に含まれる `InlineShapes` と `Shapes` を走査する。ここで重要なのは、「削除は常にインデックスの逆順で行う」という鉄則だ。コレクションを前から削除すると、インデックスがずれ、処理の抜けが発生する。
また、大規模ドキュメントにおいて、Wordの描画エンジン（GDI/GDI+）はボトルネックとなる。`ScreenUpdating` の停止は当然として、`DoEvents` による制御の解放、さらにはメモリの明示的な管理が必要となる。
—
3. 実装：Table内オブジェクト・クリーンアップ・プロトタイプ
以下に、実戦投入可能な堅牢なコードを示す。このコードは、指定したTable内の `InlineShapes` と、そのTable内にアンカーを持つ `Shapes` を完全に排除する。
Option Explicit
‘—————————————————————————————
‘ Procedure : CleanupShapesInTable
‘ Author : Chief Architect
‘ Purpose : 指定されたTable内のすべての図形（Shape/InlineShape）を削除する。
‘ メモリリークを防ぎ、描画パフォーマンスを最適化する。
‘—————————————————————————————
Public Sub CleanupShapesInTable(ByRef targetTable As Word.Table)
If targetTable Is Nothing Then Exit Sub
Dim rng As Word.Range
Set rng = targetTable.Range
‘ 描画更新の停止
Application.ScreenUpdating = False
On Error GoTo ErrorHandler
‘ 1. InlineShapes（行内図形）の削除
‘ InlineShapesはRangeに属するため、ターゲットRangeから直接操作可能
Dim i As Long
For i = rng.InlineShapes.Count To 1 Step -1
rng.InlineShapes(i).Delete
Next i
‘ 2. Shapes（浮動図形）の削除
‘ Shapesの削除は慎重を期す。AnchorがTableのRange内にあるか判定する。
‘ Document全体のShapesコレクションを走査するが、範囲外は無視する。
‘ ※大規模文書では、Range.ShapeRangeを試みるが、
‘ ShapeRangeは時に不安定なため、Anchor.InRangeプロパティで判定を行う。
Dim shp As Word.Shape
Dim docShapes As Word.Shapes
Set docShapes = targetTable.Parent.Shapes ‘ DocumentのShapes
For i = docShapes.Count To 1 Step -1
Set shp = docShapes(i)
‘ 図形のアンカーがTableのRange内に含まれているかを確認
If shp.Anchor.InRange(rng) Then
shp.Delete
End If
Next i
‘ メモリ解放とUndoスタックのクリア（大規模処理用）
Set shp = Nothing
Set rng = Nothing
‘ 必要に応じて、メモリの断片化を防ぐためのDoEvents
DoEvents
CleanExit:
Application.ScreenUpdating = True
Exit Sub
ErrorHandler:
‘ エラーログの記録（実環境では独自のロギングクラスを推奨）
Debug.Print “Error in CleanupShapesInTable: ” & Err.Description
Resume CleanExit
End Sub
—
4. 極限の最適化：Windows APIによる描画制御
VBAの `Application.ScreenUpdating = False` は強力だが、複雑な表構造の再計算までは完全に止められない場合がある。さらに徹底したパフォーマンスを求めるならば、Windows APIを用いてWordのウィンドウ自体の書き換えをロックする手法がある。
If VBA7 Then
Private Declare PtrSafe Function LockWindowUpdate Lib “user32” (ByVal hwndLock As LongPtr) As Long
Else
Private Declare Function LockWindowUpdate Lib “user32” (ByVal hwndLock As Long) As Long
End If
‘ 使用例
Public Sub HighPerformanceCleanup(ByRef targetTable As Word.Table)
‘ ウィンドウの再描画を完全にロック
LockWindowUpdate Application.hwnd
CleanupShapesInTable targetTable
‘ ロック解除
LockWindowUpdate 0
End Sub
※ `LockWindowUpdate` は強力だが、エラー発生時に確実に `0` で呼び出さないと、デスクトップ全体がフリーズしたように見えるリスクがあるため、`Finally` ブロック相当の処理を徹底すること。
—
5. 保守エンジニアへのアドバイス：レガシーの呪い
長年運用されているWordテンプレートでは、図形が「グループ化」されていることが多い。グループ化された図形は、一つの `Shape` オブジェクトとして扱われるが、その内部にさらに複雑な階層構造を持つ。
本コードはグループごと削除するため、ほとんどのケースで有効だが、特定のオブジェクト（例：電子印影など）だけを残したい場合は、`shp.Name` や `shp.Type` (msoPicture, msoAutoShape等) を判定するロジックを `If` 文に追加せよ。
また、Word VBAの `Table` オブジェクトは、セル結合（Vertical/Horizontal Merge）が多用されていると、`Cell(r, c)` によるアクセスが実行時エラーを吐く。そのため、今回のように `Table.Range` 全体を一括で扱うアプローチが、最も堅牢で汎用性が高い。
結びに代えて
表のクリーンアップという一見地味なタスクにこそ、エンジニアの質が表れる。オブジェクトの参照を適切に切り、メモリを管理し、実行速度をミリ秒単位で削る。その積み重ねが、数万ページに及ぶ自動生成システムの安定性を支えるのだ。
このコードを君のツールボックスに加え、明日からのリファクタリングに役立ててほしい。システムは美しく、そして正確であるべきだ。
