【Word VBA】機密情報を守り抜く！表の特定列を「幅0（ゼロ）」で動的制御する堅牢な非表示メソッド
開発プロジェクトのリーダーである私たちが、クライアント向けや社外秘のドキュメントを自動生成する際、常に直面する課題が「情報粒度のコントロール」だ。
例えば、社内向けのマスターデータには「原価率」「担当者の評価」「内部ID」といった機密情報が含まれているが、これをそのままクライアント提出用の提案書や外部向けレポートに流用してはならない。
「じゃあ、出力用のWordテンプレートを別々に用意すればいいじゃないか」
……甘い。そんな運用をすれば、テンプレートの改修漏れによる情報漏洩（ヒューマンエラー）が必ず発生する。
「データソースは一つ。出力時にVBAが文脈を判断し、不要な列を瞬時に消去する」
これこそが、プロの業務自動化エンジニアが実装すべき堅牢なアーキテクチャだ。
今回は、Wordの表（Table）における特定列を「幅0」にして完全に隠蔽し、さらにレイアウト崩壊を防ぐための極限の知見を授けよう。
—
1. なぜ「行や列の削除」ではなく「幅0（ゼロ）」なのか？
初学者がやりがちな失敗が、不要な列そのものを `Columns(index).Delete` で削除してしまうアプローチだ。
これをやってはいけない理由は明白である。
1. 処理速度の劣化: Wordのテーブル操作は重い。列の削除は再描画コストが高い。
2. データの参照ズレ: 複数回ループを回して列を削除していくと、インデックスがズレてバグの温床になる。
3. 動的な復元の困難さ: 一度消した列を「やっぱり表示する」場合、データ構造を再構築するか、元ファイルをリロードするしかない。
「列は削除せず、幅を極限まで縮めて視覚的に消す（隠蔽する）」
これがWord VBAにおけるセキュアかつスマートなベストプラクティスだ。幅を0にすれば、データはそこに存在しつつも、印刷面・画面上からは完全に姿を消す。
—
2. 実装上の罠：Wordの列幅は「セル単位」で支配されている
ここでWord VBAの深い闇（仕様の癖）を一つ共有しておこう。
Excelであれば `Columns(n).ColumnWidth = 0` と一発で列全体を制御できるが、Wordのテーブル（`Table`オブジェクト）は、行ごとにセルの幅を持っている。
そのため、単に `Columns.Width` を操作するだけでは、結合セル（MergeCells）が存在する場合に実行時エラー（エラー番号：5941「指定されたコレクションのメンバーは存在しません」など）を引き起こす。
また、Wordのテーブルは「自動調整（Autofit）」機能が有効なままだと、勝手に幅が再計算されて隠したはずの列がニョキと復活してしまう。
堅牢な設計の要件
- 処理の最初にテーブルの自動調整を明示的にオフにする。
- 対象列の全セルに対して個別に幅を `0`（または極小値）に設定する。
- エラーハンドリングを実装し、存在しない列番号を指定された場合でも沈黙させずに検知する。
—
3. 【コピペOK】プロダクション品質の完全実装コード
実務の現場でそのまま組み込める、洗練されたモジュールを提供する。
このプロシージャは、指定したテーブルの「特定の列番号（配列で複数指定可能）」を一括して非表示、あるいは表示に切り替える汎用エンジンだ。
Option Explicit
‘ ==============================================================================
‘ 処理名 : ToggleTableColumnVisibility
‘ 概要 : Wordの指定テーブルにおける特定列の表示・非表示を切り替える
‘ 引数 : targetTable -> 対象のTableオブジェクト
‘ : colIndices -> 非表示/表示を切り替える列番号の配列 (例: Array(2, 4))
‘ : isVisible -> True:表示, False:非表示（幅0）
‘ 開発者 : 業務自動化チーフアーキテクト
‘ ==============================================================================
Public Sub ToggleTableColumnVisibility(ByRef targetTable As Table, ByRef colIndices() As Variant, ByVal isVisible As Boolean)
‘ エラーハンドリングの構築
On Error GoTo ErrorHandler
Dim i As Long, j As Long
Dim colIndex As Long
Dim targetWidth As Single
‘ Wordの自動レイアウト調整を無効化（勝手な幅変更を防ぐ）
targetTable.AutoFitBehavior wdAutoFitFixed
‘ 表示の場合は標準的な幅（例: 72ポイント = 1インチ）、非表示の場合は 0
‘ ※完全に0にするとWordの描画がバグる場合があるため、非表示時は微小値を与える設計もあるが、
‘ 厳格な非表示には 0 を指定する
targetWidth = IIf(isVisible, 50.0, 0.0) ‘ ※50.0は仮のデフォルト幅。必要に応じて調整
‘ テーブルの保護（変更不可状態）を一時解除する処理を入れる場合はここに記述
‘ 指定された列番号の配列をループ
For i = LBound(colIndices) To UBound(colIndices)
colIndex = CLng(colIndices(i))
‘ 列番号がテーブルの総列数を超えていないかバリデーション
If colIndex > 0 And colIndex <= targetTable.Columns.Count Then
' 列に属するすべてのセルを走査（結合セル対策として行ごとにセルを指定）
For j = 1 To targetTable.Rows.Count
' セルが存在するか確認して幅を設定
On Error Resume Next
targetTable.Cell(j, colIndex).Width = targetWidth
On Error GoTo ErrorHandler
Next j
End If
ForNext:
Next i
Exit Sub
ErrorHandler:
MsgBox "列の表示制御中に予期せぬエラーが発生しました。" & vbCrLf & _
"エラー番号: " & Err.Number & vbCrLf & _
"エラー内容: " & Err.Description, vbCritical, "VBA処理エラー"
End Sub
呼び出し側のサンプルコード
実際の業務ツールでは、以下のようにチェックボックスの状態や出力モード（社内用/社外用）に応じてこの関数を叩くことになる。
Public Sub Sample_ExportForClient()
Dim doc As Document
Set doc = ActiveDocument
‘ 文書内の1番目のテーブルに対して、2列目（原価）と4列目（利益率）を非表示にする
Dim hideCols(1) As Variant
hideCols(0) = 2 ‘ 原価列
hideCols(1) = 4 ‘ 利益率列
If doc.Tables.Count > 0 Then
‘ 実行：非表示（False）
ToggleTableColumnVisibility doc.Tables(1), hideCols, False
MsgBox “社外秘データの隠蔽処理が完了しました。”, vbInformation
End If
End Sub
—
4. プロジェクトリーダーからの実践的アドバイス
1. 「完全に消す」ことの法的・セキュリティ的リスク
前述の通り、幅を0にしてもデータ自体はWord文書の内部XMLに存在している。もし完全な機密保持が求められる場合、VBAで列幅を隠すだけではなく、そもそもデータベースや外部CSVからデータを取得する段階で「機密列のデータを読み込まない（SQLのSELECT句で除外する）」という上流からの設計が必須だ。「VBAは最後の化粧に過ぎない」という原則を忘れてはならない。
2. 印刷プレビューでの挙動確認
Wordの仕様上、画面上では幅0になっていても、印刷プレビューやPDFエクスポート時に微小な罫線が残ることがある。これを完璧に防ぎたい場合は、幅を0にするだけでなく、セルのフォントサイズを1にしたり、文字色を白に設定する防御的コードを組み合わせると、より堅牢な仕上がりになる。
プロの書くコードは、単に「動く」だけではなく、「未来のバグや保守の手間を先回りして潰している」ものだ。
この知見をあなたのプロジェクトに導入し、圧倒的な品質の自動化ツールを構築してほしい。
