Word VBAで表内の図形をスマートに削除！保守作業を劇的に効率化するクリーンアップ術
こんにちは！Word VBAの世界へようこそ。今日は、普段の資料作成やレポート作成で、ふと「あれ？この表の中に、いつの間にか図形が入ってる！」なんて経験をしたことはありませんか？
特に、複数人でファイルを共有したり、長い間メンテナンスしている資料だと、意図せず挿入されたオートシェイプや、テキストボックスが表の中に紛れ込んでいること、よくありますよね。これらは見た目を損なうだけでなく、場合によってはレイアウトを崩したり、印刷時に予期せぬ問題を引き起こすことも。
「一つずつ手作業で削除するのは面倒くさい…」
そんな悩みを抱えているあなたに、今日はWord VBAを使った「表内の図形一括削除」という、とっても実用的で、しかも「なるほど！」と思えるテクニックをご紹介します。
このテクニックをマスターすれば、資料の保守作業が劇的に楽になるはず。マクロの記録だけでは辿り着けない、VBAの奥深い世界への第一歩を踏み出しましょう！
なぜ「表内の図形削除」が重要なのか？
まず、なぜこの「表内の図形削除」というテーマに焦点を当てるのか、その重要性を改めて確認しておきましょう。
- 資料の品質向上: 不要な図形は、資料の見た目を悪くします。クリーンな状態に保つことで、プロフェッショナルな印象を与えられます。
- レイアウト崩れの防止: 図形が表のセル内に存在すると、セルの幅や高さを意図せず変更してしまうことがあります。これが原因で、全体のレイアウトが崩れることも。
- ファイルサイズの削減: 微々たるものですが、不要なオブジェクトが多いとファイルサイズが増加します。
- 保守作業の効率化: 何十、何百もの表がある場合、手作業での削除は時間と労力がかかります。VBAを使えば、この作業を数秒で完了させることができます。
- VBAの基礎理解の深化: この処理を理解することで、Word VBAにおける「オブジェクトの操作」「コレクションの走査」「条件分岐」といった、より高度なプログラミングの基礎が自然と身につきます。
基礎の基礎：Word VBAの「オブジェクト」と「コレクション」って何？
VBAを学ぶ上で避けては通れないのが、「オブジェクト」と「コレクション」という考え方です。これを理解するだけで、VBAのコードが「なるほど！」と腑に落ちる場面が増えますよ。
オブジェクト：Word文書を構成する「モノ」たち
Word VBAの世界では、Word文書を構成するあらゆる要素が「オブジェクト」として扱われます。
- Applicationオブジェクト: Wordアプリケーションそのもの。
- Documentオブジェクト: 現在開いているWord文書。
- Tablesコレクション: 文書内のすべての表。
- Tableオブジェクト: 文書内の1つの表。
- Rowsコレクション: 表内のすべての行。
- Rowオブジェクト: 表内の1つの行。
- Cellsコレクション: 行内のすべてのセル。
- Cellオブジェクト: 表内の1つのセル。
- Rangeオブジェクト: 文書内の特定の範囲（テキスト、画像、表などを含む）。
- Shapesコレクション: 文書内のすべての図形（オートシェイプ、テキストボックス、画像など）。
- Shapeオブジェクト: 文書内の1つの図形。
これらのオブジェクトは、それぞれが持つプロパティ（属性）やメソッド（操作）を持っています。例えば、`Document`オブジェクトには`FullName`（ファイル名）というプロパティがあり、`Table`オブジェクトには`Rows.Add`（行を追加する）というメソッドがあります。
コレクション：オブジェクトの「集まり」
「コレクション」とは、同じ種類のオブジェクトの集まりのことです。例えば、`Tables`コレクションは、`Document`オブジェクトに含まれるすべての`Table`オブジェクトの集まりです。
コレクションを操作することで、その中に含まれる個々のオブジェクトを順番に処理したり、特定のオブジェクトを見つけ出したりすることができます。VBAでよく使う「For Each〜Next」ループは、このコレクションを走査するために非常に便利です。
いざ実践！表内の図形を全削除するVBAコード
それでは、いよいよ本題のVBAコードを見ていきましょう。今回は、文書内のすべての表を対象に、その中に含まれる図形を削除するコードを作成します。
Sub DeleteShapesInTables()
‘ 変数の宣言
Dim doc As Document ‘ 現在アクティブなWord文書を表す変数
Dim tbl As Table ‘ 各表を格納する変数
Dim shp As Shape ‘ 各図形を格納する変数
Dim shpRng As ShapeRange ‘ セル内の図形を格納するShapeRangeオブジェクト
Dim cellsInRange As Range ‘ 図形を検索する範囲を格納するRangeオブジェクト
Dim shapeDeletedCount As Long ‘ 削除した図形の数をカウントする変数
‘ 初期化
Set doc = ActiveDocument ‘ 現在アクティブな文書をセット
shapeDeletedCount = 0 ‘ 削除カウンターをリセット
‘ — ここからが本処理 —
‘ 文書内のすべての表を順番に処理します (For Each〜Nextループ)
‘ Tablesコレクションを走査し、各Tableオブジェクトをtbl変数に格納します。
For Each tbl In doc.Tables
‘ 各表のセルの範囲を取得します。
‘ tbl.Range は、その表全体を指すRangeオブジェクトです。
‘ このRangeオブジェクト内のShapesコレクションを対象にします。
‘ ただし、表内の図形だけを効率的に処理するために、
‘ セル範囲に限定して図形を検索します。
‘ 便宜上、表の範囲全体を対象としますが、
‘ 実際にはセル内の図形のみを削除するようにします。
‘ ここでのポイントは、ShapeオブジェクトがどのRangeに属しているかを意識することです。
‘ 厳密には、表のRangeオブジェクト内のShapeを走査し、
‘ そのShapeがCellオブジェクト内に存在するかどうかを判定するのが理想ですが、
‘ よりシンプルに、表のRange内のShapeを走査し、
‘ 削除対象とする方法を取ります。
‘ 表のRangeオブジェクト内のすべてのShapeを走査します。
‘ On Error Resume Next は、もしShapesコレクションが空でエラーが発生しても、
‘ 処理を続行するためのエラーハンドリングです。
On Error Resume Next
Set shpRng = tbl.Range.Shapes
On Error GoTo 0 ‘ エラーハンドリングを通常に戻す
‘ もし、表内に図形が存在する場合（shpRngがNothingでない場合）
If Not shpRng Is Nothing Then
‘ 表内に存在する図形を逆順に走査して削除します。
‘ 逆順に削除するのは、コレクションの要素を削除する際のインデックスのずれを防ぐためです。
‘ (例: 3つの要素がある場合、2番目を削除すると、元の3番目が2番目になる)
For i = shpRng.Count To 1 Step -1
‘ 削除対象のShapeオブジェクトを取得
Set shp = shpRng(i)
‘ ここで、削除する図形が本当に「表のセル内」にあるかを判定するロジックを追加することも可能ですが、
‘ 今回は「表のRange内にあるShape」をすべて削除する、というシンプルな仕様とします。
‘ より厳密な判定が必要な場合は、shp.TopLeftCell プロパティなどを利用します。
‘ 図形を削除します。
shp.Delete
‘ 削除した図形の数をカウントアップします。
shapeDeletedCount = shapeDeletedCount + 1
Next i
‘ shpRngオブジェクトを解放します（メモリ管理のため）
Set shpRng = Nothing
End If
Next tbl ‘ 次の表へ
‘ — 処理完了のメッセージ —
MsgBox “表内の図形削除処理が完了しました。” & vbCrLf & _
“合計 ” & shapeDeletedCount & ” 個の図形を削除しました。”, vbInformation
‘ 変数を解放します
Set doc = Nothing
End Sub
コードの解説：一歩ずつ理解を深めよう
このコードが何をしているのか、一つずつ丁寧に見ていきましょう。
変数の宣言
Dim doc As Document
Dim tbl As Table
Dim shp As Shape
Dim shpRng As ShapeRange
Dim cellsInRange As Range ‘ 今回は直接使用していませんが、セル範囲を意識する際に役立ちます
Dim shapeDeletedCount As Long
- `Dim`は「Declare an Integer」（整数を宣言する）の略ではなく、「Declare InterMediate」（中間的なものを宣言する）といったニュアンスで、変数を宣言する際に使います。
- `As Document`のように型を指定することで、その変数がどのような種類のデータを格納できるかを明示します。これにより、コードの可読性が高まり、タイプミスによるエラーを防ぐことができます。
- `shapeDeletedCount As Long`は、削除した図形の数を数えるための変数です。図形は大量にある可能性があるので、`Long`型（より大きな整数を格納できる型）を使うのが一般的です。
初期化
Set doc = ActiveDocument
shapeDeletedCount = 0
- `Set doc = ActiveDocument`で、現在開いているWord文書（アクティブな文書）を`doc`変数に代入しています。`Set`キーワードは、オブジェクト型の変数を代入する際に必須です。
- `shapeDeletedCount = 0`で、削除カウンターをゼロにリセットしています。
表の走査（For Each〜Next）
For Each tbl In doc.Tables
‘ … 処理内容 …
Next tbl
- `doc.Tables`は、`doc`（アクティブな文書）に含まれるすべての`Table`オブジェクトの集まり（コレクション）です。
- `For Each tbl In doc.Tables`は、この`Tables`コレクションを一つずつ取り出し、`tbl`という変数に格納しながらループ処理を行います。つまり、文書内のすべての表に対して、このループの中の処理が実行されることになります。
- `Next tbl`は、ループの次の繰り返しに進むことを指示します。
表内の図形の取得と削除
On Error Resume Next
Set shpRng = tbl.Range.Shapes
On Error GoTo 0
If Not shpRng Is Nothing Then
For i = shpRng.Count To 1 Step -1
Set shp = shpRng(i)
shp.Delete
shapeDeletedCount = shapeDeletedCount + 1
Next i
Set shpRng = Nothing
End If
- `tbl.Range`は、現在処理している`tbl`（表）全体を指す`Range`オブジェクトです。
- `tbl.Range.Shapes`は、その表の範囲内にあるすべての`Shape`オブジェクトの集まり（コレクション）です。
- `On Error Resume Next`と`On Error GoTo 0`: ここが少し高度なテクニックです。もし表内に図形が一つも存在しない場合、`tbl.Range.Shapes`というコレクションは空になり、その後の処理でエラーが発生する可能性があります。`On Error Resume Next`を記述すると、エラーが発生しても処理を停止せずに次の行に進みます。そして、`On Error GoTo 0`で通常のエラーハンドリングに戻します。
- `If Not shpRng Is Nothing Then`: `tbl.Range.Shapes`が空でなかった場合（つまり、表内に図形が存在した場合）のみ、中の処理を実行します。
- `For i = shpRng.Count To 1 Step -1`: ここが、図形を逆順に削除する重要な部分です。
- `shpRng.Count`は、表内にある図形の数です。
- `To 1`で、最後の図形から最初の図形までを指します。
- `Step -1`で、1つずつ減らしながら（逆順に）ループします。
- なぜ逆順なのか？ コレクション（リストのようなもの）から要素を削除すると、それ以降の要素のインデックス（番号）がずれてしまいます。例えば、3つの図形があり、順番に削除しようとして1番目を削除すると、元々2番目だったものが1番目になり、3番目だったものが2番目になります。この状態で次に2番目を削除しようとすると、意図しない要素を削除したり、エラーになったりする可能性があります。逆順に削除することで、このインデックスのずれを防ぐことができます。
- `Set shp = shpRng(i)`: 現在のループで指定されたインデックス`i`に対応する`Shape`オブジェクトを`shp`変数に格納します。
- `shp.Delete`: 取得した`shp`（図形）を削除します。
- `shapeDeletedCount = shapeDeletedCount + 1`: 削除した図形の数を1つ増やします。
- `Set shpRng = Nothing`: `shpRng`オブジェクトを解放します。これは、不要になったオブジェクトのメモリを解放し、プログラムの安定性を高めるための良い習慣です。
完了メッセージ
MsgBox “表内の図形削除処理が完了しました。” & vbCrLf & _
“合計 ” & shapeDeletedCount & ” 個の図形を削除しました。”, vbInformation
- `MsgBox`関数は、メッセージボックスを表示します。
- `vbCrLf`は改行コードで、メッセージを複数行に表示するために使用します。
- `&`は文字列を連結（つなげる）演算子です。
- `vbInformation`は、メッセージボックスに情報アイコンを表示するための定数です。
変数の解放
Set doc = Nothing
- 最後に、`doc`オブジェクトも解放して、処理をきれいに終えます。
陥りやすいエラーとその対策
このコードを実際に動かしてみると、いくつか注意したい点があります。
1. 「インデックスが範囲外です」エラー:
- 原因: 図形を順方向に削除しようとした場合に発生しやすいです。前述したように、コレクションから要素を削除するとインデックスがずれるためです。
- 対策: 必ず逆順（`For i = shpRng.Count To 1 Step -1`）で削除するようにしましょう。
2. 「オブジェクトは Null または無効です」エラー:
- 原因: 表内に図形が一つもないのに、`If Not shpRng Is Nothing Then`のチェックが甘かったり、`On Error Resume Next`の後に取得したオブジェクトが本当に`Nothing`だった場合に発生する可能性があります。
- 対策: `On Error Resume Next`と`If Not shpRng Is Nothing Then`を適切に組み合わせることで、このエラーを回避できます。
3. 意図しない図形まで削除してしまう:
- 原因: 今回のコードは「表の`Range`内にある図形」をすべて削除する仕様になっています。しかし、厳密には「表のセル内に配置されている図形」だけを削除したい場合もあります。例えば、表のすぐ外にある図形が、たまたま表の`Range`と重なっていた場合、削除されてしまう可能性があります。
- 対策: より厳密に「セル内」の図形だけを削除したい場合は、各`Shape`オブジェクトがどの`Cell`オブジェクトに属しているかを確認するロジックを追加する必要があります。例えば、`shp.TopLeftCell`プロパティなどで、図形の左上の座標がどのセルに属しているかを確認できます。
‘ 例: セル内に属するかどうかの判定（より厳密な場合）
Dim targetCell As Cell
On Error Resume Next ‘ Cellプロパティでエラーになる場合があるため
Set targetCell = shp.TopLeftCell
On Error GoTo 0
If Not targetCell Is Nothing Then
‘ targetCellが、削除対象の表tblのセルに含まれているかを確認
‘ (この判定は少し複雑になるため、今回は省略)
‘ もしセル内にあれば削除
‘ shp.Delete
‘ shapeDeletedCount = shapeDeletedCount + 1
End If
ただし、この厳密な判定はコードが複雑になるため、まずは今回のシンプルなコードで「表の範囲内の図形」を削除する、という用途で十分な場合が多いです。
より発展的な応用：特定の表だけを対象にするには？
もし、「すべての表ではなく、特定の表だけ図形を削除したい」という場合は、どのようにすれば良いでしょうか？
例えば、「文書の3番目の表だけ」を対象にするなら、`For Each`ループの代わりに、インデックスで直接指定する方法があります。
Sub DeleteShapesInSpecificTable()
Dim doc As Document
Dim tbl As Table
Dim shpRng As ShapeRange
Dim shp As Shape
Dim shapeDeletedCount As Long
Set doc = ActiveDocument
shapeDeletedCount = 0
‘ — 特定の表を対象にする —
‘ 例: 文書内の3番目の表を対象とする
Const TARGET_TABLE_INDEX As Long = 3 ‘ 削除したい表の番号 (1から始まる)
‘ 表の数が足りているかチェック
If doc.Tables.Count >= TARGET_TABLE_INDEX Then
‘ 指定されたインデックスの表を取得
Set tbl = doc.Tables(TARGET_TABLE_INDEX)
‘ 以下、前述のコードと同様に、tbl内の図形を削除
On Error Resume Next
Set shpRng = tbl.Range.Shapes
On Error GoTo 0
If Not shpRng Is Nothing Then
For i = shpRng.Count To 1 Step -1
Set shp = shpRng(i)
shp.Delete
shapeDeletedCount = shapeDeletedCount + 1
Next i
Set shpRng = Nothing
End If
MsgBox “文書の ” & TARGET_TABLE_INDEX & ” 番目の表内の図形削除処理が完了しました。” & vbCrLf & _
“合計 ” & shapeDeletedCount & ” 個の図形を削除しました。”, vbInformation
Else
MsgBox “指定された番号の表は存在しません。”, vbExclamation
End If
Set doc = Nothing
End Sub
このように、`doc.Tables(TARGET_TABLE_INDEX)`のようにインデックスを指定することで、特定の表にアクセスできます。
まとめ：VBAで「できない」を「できる」に変える楽しさ
いかがでしたでしょうか？
Word VBAで表内の図形を一括削除するコードは、一見難しそうに見えるかもしれませんが、基本的な「オブジェクト」「コレクション」「ループ処理」の考え方を理解すれば、意外とシンプルに実装できることがお分かりいただけたかと思います。
今回ご紹介したコードは、単に「図形を削除する」という作業を自動化するだけでなく、
- 保守作業の効率化
- 資料の品質向上
- VBAの基礎力の向上
といった、様々なメリットをもたらしてくれます。
マクロの記録だけでは辿り着けない、こうした「自分で考えてコードを書く」という体験こそが、VBAを使いこなす上での醍醐味であり、あなたのスキルを一段階引き上げてくれるはずです。
ぜひ、このコードを参考に、ご自身のWord資料のクリーンアップに活用してみてください。そして、この知識を応用して、さらに便利なマクロを作成していくことで、Word VBAの世界がさらに広がることを願っています！
「ここをクリアすれば、Word VBAの基本はバッチリですよ！」
あなたのWord作業が、より快適で効率的になることを応援しています！
