【テクニカル・上級編】【中級者向け】表の特定の列を非表示（幅0）にするVBA実装 – Word VBA解析バイブル

Word VBAにおける表列「完全非表示」の真実 — 描画エンジンの特性を掌握し、機密データを動的に制御する極限アーキテクチャ

Excel VBAに慣れ親しんだエンジニアがWord VBAの「表（Table）」操作に足を踏み入れた際、最初に直面する絶望的な壁——それが「列の非表示（Hidden）プロパティが存在しない」という仕様です。

`Range(“B:B”).EntireColumn.Hidden = True` という1行で完了するExcelとは異なり、Wordの描画エンジン（Flow Layout Engine）において、表は「独立した列オブジェクトの集合」ではなく、「行（Row）内部に含まれるセル（Cell）の相関的羅列」に過ぎません。

そのため、単に `Column.Width = 0` を指定するだけでは、Wordのレイアウト再計算アルゴリズムによって最小セル余白や罫線幅、文字列の折り返しが強制割り込みを行い、「不自然に押し潰された極小幅の列と、ぐちゃぐちゃに崩れた文字列」が画面に残される結果となります。

本稿では、帳票出力や印刷時の機密情報（顧客ID、内部原価、個人情報など）を動的かつ不可視化するために、Word描画エンジンの内部挙動を解明し、Win32 API制御・パディング消去・フォント不可視化・メモリ最適化を融合させた至高の列制御アーキテクチャを解説します。

—

1. なぜ `.Width = 0` では失敗するのか？ Word描画エンジンの内部構造

Wordがドキュメントをレンダリングする際、表のセルサイズは以下の優先順位で決定されます。

1. Cell Margins (左右・上下の余白)
2. Borders (罫線の線幅)
3. PreferredWidth (希望セル幅)
4. AutoFit Algorithm (自動フィット設定)

たとえVBAで `Column.Width = 0` や `PreferredWidth = 0` を叩いたとしても、セル内の余白（デフォルトで左右約1.9mm/5.4pt）や罫線幅、さらにはセルに含まれる「改行コード（`^p` または `Chr(13)&Chr(7)`）」の存在により、Wordエンジンは幅を「ゼロ」にすることを拒絶します。

完全に列を画面上・印刷上から消去（物理的隠蔽）するには、単に幅を狭めるのではなく、セルの構成要素（Padding / Border / Font / PreferredWidth）のすべてを物理的極限まで削ぎ落とし、描画エンジンに「サイズゼロ」を承認させる「完全中和プロトコル」が必要不可欠となります。

—

2. アーキテクチャ設計：列非表示（完全中和）の5要素

列を「完全に非表示」にし、かつ印刷・PDF出力後に「元のレイアウトへ誤差なく復元」するためのアルゴリズムは、以下の5つのステップで構成されます。

[元の状態] —> 1. 幅情報のキャッシュ保持 (Custom Document Properties / Dictionary)
—> 2. AutoFitの完全無効化 (AllowAutoFit = False)
—> 3. セル余白(Padding)の完全ゼロ化
—> 4. 内部テキストおよび改行コードの不可視化 (Font.Hidden = True)
—> 5. 左右罫線の消去 ＆ 幅0（極小値）化 —> [完全非表示状態]

印刷処理完了後は、このプロセスを逆順にたどり、キャッシュから正確なセル幅を再適用します。この「完全可逆性」を担保することが、堅牢なエンタープライズVBAシステムの絶対条件です。

—

3. 実装：プロダクション適用可能な極限のVBAモジュール

以下に示すコードは、大量のデータ行を持つ巨大な表であっても、画面のちらつき（Flicker）を完全に抑制し、メモリリークを起こさずに高速で列の表示・非表示を切り替える決定版モジュールです。

画面描画の完全停止には Win32 API (`LockWindowUpdate`) を使用し、COMオブジェクトのライフサイクル管理を徹底しています。

Option Explicit

‘ ==============================================================================
‘ Win32 API 宣言
‘ 大規模文書における高速描画制御およびフリッカー防止
‘ ==============================================================================
If VBA7 Then
Private Declare PtrSafe Function LockWindowUpdate Lib “user32” (ByVal hwndLock As LongPtr) As Long
Private Declare PtrSafe Function GetActiveWindow Lib “user32” () As LongPtr
Else
Private Declare Function LockWindowUpdate Lib “user32” (ByVal hwndLock As Long) As Long
Private Declare Function GetActiveWindow Lib “user32” () As Long
End If

‘ 復元用データを一時保持するメモリ領域（セッション中保持）
Private m_colWidthCache As Object

‘ ==============================================================================
‘ メイン制御プロシージャ：指定列の非表示 / 復元 切り替え
‘ ==============================================================================
Public Sub ToggleColumnVisibility( _
ByRef targetTable As Word.Table, _
ByVal columnIndex As Long, _
ByVal hideColumn As Boolean)

On Error GoTo ErrorHandler

‘ 1. ガードクローズ：パラメータ及びオブジェクト検証
If targetTable Is Nothing Then Exit Sub
If columnIndex < 1 Or columnIndex > targetTable.Columns.Count Then
Err.Raise vbObjectError + 1001, “ToggleColumnVisibility”, “指定された列インデックスが範囲外です。”
End If

‘ 2. 描画・イベント更新の停止 (パフォーマンス最適化)
Dim hwnd As LongPtr
#If VBA7 Then
hwnd = GetActiveWindow()
#Else
hwnd = GetActiveWindow()
#End If

Call LockWindowUpdate(hwnd)
Application.ScreenUpdating = False

‘ 3. 表の自動サイズ調整を解除（Wordエンジンの割り込みを防止）
targetTable.AllowAutoFit = False

‘ 4. キャッシュオブジェクトの初期化
If m_colWidthCache Is Nothing Then
Set m_colWidthCache = CreateObject(“Scripting.Dictionary”)
End If

Dim cacheKey As String
cacheKey = “T” & targetTable.NestingLevel & “_” & targetTable.Range.Start & “_C” & columnIndex

‘ ————————————————————————–
‘ 処理分岐：非表示化 処理
‘ ————————————————————————–
If hideColumn Then
‘ 元の列幅をキャッシュに退避（初回非表示時のみ）
If Not m_colWidthCache.Exists(cacheKey) Then
Dim currentWidths() As Single
ReDim currentWidths(1 To targetTable.Rows.Count)

Dim rIdx As Long
For rIdx = 1 To targetTable.Rows.Count
‘ 結合セルに対するエラーハンドリング
On Error Resume Next
currentWidths(rIdx) = targetTable.Cell(rIdx, columnIndex).Width
On Error GoTo ErrorHandler
Next rIdx

m_colWidthCache.Add cacheKey, currentWidths
End If

‘ 列の完全中和（物理消去化）プロトコル実行
Dim cellTarget As Word.Cell
Dim rowObj As Word.Row

For Each rowObj In targetTable.Rows
On Error Resume Next
Set cellTarget = rowObj.Cells(columnIndex)
On Error GoTo ErrorHandler

If Not cellTarget Is Nothing Then
With cellTarget
‘ A. 余白のゼロ化（最重要）
.LeftPadding = 0
.RightPadding = 0

‘ B. フォントの完全不可視化（テキストに引きずられる挙動を防ぐ）
.Range.Font.Hidden = True
.Range.Font.Size = 0.5 ‘ 極小化

‘ C. 左右罫線の不可視化
.Borders(wdBorderLeft).LineStyle = wdLineStyleNone
.Borders(wdBorderRight).LineStyle = wdLineStyleNone

‘ D. セル幅のゼロ化指定
.Width = 0
.PreferredWidthType = wdPreferredWidthPoints
.PreferredWidth = 0
End With
Set cellTarget = Nothing
End If
Next rowObj

‘ ————————————————————————–
‘ 処理分岐：可視化（復元）処理
‘ ————————————————————————–
Else
If m_colWidthCache.Exists(cacheKey) Then
Dim savedWidths() As Single
savedWidths = m_colWidthCache(cacheKey)

For rIdx = 1 To targetTable.Rows.Count
On Error Resume Next
Set cellTarget = targetTable.Cell(rIdx, columnIndex)
On Error GoTo ErrorHandler

If Not cellTarget Is Nothing Then
With cellTarget
‘ A. フォント設定の復元
.Range.Font.Hidden = False
.Range.Font.Size = 10.5 ‘ 規定のサイズへ（環境に合わせて調整）

‘ B. セル余白の再設定 (規定値: 5.4pt ≒ 1.9mm)
.LeftPadding = InchesToPoints(0.08)
.RightPadding = InchesToPoints(0.08)

‘ C. 罫線の復元
.Borders(wdBorderLeft).LineStyle = wdLineStyleSingle
.Borders(wdBorderRight).LineStyle = wdLineStyleSingle

‘ D. 元のセル幅の適用
.Width = savedWidths(rIdx)
.PreferredWidthType = wdPreferredWidthPoints
.PreferredWidth = savedWidths(rIdx)
End With
Set cellTarget = Nothing
End If
Next rIdx

‘ キャッシュの破棄
m_colWidthCache.Remove cacheKey
End If
End If

CleanUp:
‘ 5. メモリ解放と画面描画の再開
Application.ScreenUpdating = True
Call LockWindowUpdate(0)
Exit Sub

ErrorHandler:
Dim errDesc As String
errDesc = Err.Description
‘ エラー時も必ず描画ロックを解除する
Call LockWindowUpdate(0)
Application.ScreenUpdating = True
Err.Raise Err.Number, “ToggleColumnVisibility”, “列制御中にエラーが発生しました: ” & errDesc
End Sub

—

4. 機密印刷・PDF動的出力システムへの組み込みパターン

現場の業務システムで最も求められるのは、「画面上では作業用に機密列を表示しているが、印刷ボタンまたはPDF出力ボタンを押した瞬間だけ列を隠し、処理完了後に即座に復元する」というステルス運用です。

以下は、Documentの印刷イベントやPDF出力処理に組み込む標準的なシステム連携パターンです。

‘ ==============================================================================
‘ 応用例：機密列（例: 第3列「内部原価」）を隠して安全にPDFを出力する実用プロシージャ
‘ ==============================================================================
Public Sub ExportToSecurePDF()
Dim doc As Word.Document
Set doc = ThisDocument

If doc.Tables.Count = 0 Then
MsgBox “対象となる表が存在しません。”, vbExclamation
Exit Sub
End If

Dim tbl As Word.Table
Set tbl = doc.Tables(1)

Const CONFIDENTIAL_COL_IDX As Long = 3 ‘ 隠したい機密列（例：原価情報）
Dim pdfPath As String
pdfPath = doc.Path & “\出荷伝票_外部提出用_” & Format(Now, “yyyymmddhhnnss”) & “.pdf”

On Error GoTo DynamicExportError

‘ — STEP 1: 機密列の非表示化 —
ToggleColumnVisibility tbl, CONFIDENTIAL_COL_IDX, True

‘ — STEP 2: PDFサイレント出力 —
doc.ExportAsFixedFormat _
OutputFileName:=pdfPath, _
ExportFormat:=wdExportFormatPDF, _
OpenAfterExport:=False, _
OptimizeFor:=wdExportOptimizeForPrint, _
Range:=wdExportAllDocument, _
Item:=wdExportDocumentContent, _
IncludeDocProps:=False, _
KeepIRM:=True, _
CreateBookmarks:=wdExportCreateNoBookmarks, _
DocStructureTags:=True, _
BitmapMissingFonts:=True, _
UseISO19005_1:=False

MsgBox “機密情報を除外したPDFを出力しました：” & vbCrLf & pdfPath, vbInformation, “出力完了”

DynamicExportError:
‘ — STEP 3: 必ず元の表示状態へ復元（例外発生時も担保） —
ToggleColumnVisibility tbl, CONFIDENTIAL_COL_IDX, False

‘ オブジェクトの明示的参照解除（メモリリーク防止）
Set tbl = Nothing
Set doc = Nothing
End Sub

—

5. レガシー保守・大規模展開におけるアーキテクトの戒め

本実装を実務に導入する際、シニアエンジニアおよびシステム管理者が考慮すべき3つの技術的極論を伝達します。

① 結合セル（Merged Cells）が存在する表への対処

WordのCOMオブジェクトモデルにおいて、行ごとに列数が異なる「結合セル」が含まれる表に対して `Table.Columns(i)` を参照すると、VBAは即座に `5991: 画面個々の列幅が異なるため、このコレクションのプロパティにアクセスできません。` という実行時エラーを吐きます。
本稿のコードでは `Table.Columns` コレクションを盲信せず、`Table.Rows(i).Cells(j)` の走査と `On Error Resume Next` によるガードを仕込んでいるため、結合セルが存在する複雑なレイアウトでも破綻せずに処理を実行可能です。

② VBE/Officeのガベージコレクション（GC）と非同期描画

WordのCOMオブジェクトは、ループ内で大量に生成・破棄を繰り返すと、内部の参照カウンタが解放されずに「Wordプロセスのゴースト化（タスクマネージャーに残存）」や「グラフィック描画バッファの枯渇」を引き起こします。
`For Each` 内部での `Set cellTarget = Nothing` による明確なオブジェクト参照解除および、Win32 API `LockWindowUpdate` によるOSレベルでの描画バッファロックは、1,000行を超える大画面帳票を扱うシステムにおいて必須の作法です。

③ セル内テキストの「完全消去」を行わない理由

「列を隠すならセル内の文字自体を `Cell.Range.Text = “”` で消せばいいのではないか？」という安直な発想は厳禁です。データの消去は不可逆であり、万が一復元ロジック実行前にマクロがクラッシュした場合、企業の基幹データが不可逆的に破壊されるリスクを意味します。
本アーキテクチャのように「データ構造には一切手を触れず、描画パラメータ（Width, Padding, Font Hidden, Border）のみを中和する」設計こそが、基幹運用に耐えうるエンタープライズコードの絶対条件です。

—

結論

Word VBAにおける「表の列の非表示」は、単なるプロパティの設定ではなく、Wordレイアウトエンジンとの力学的な交渉です。

余白、フォントサイズ、罫線、AutoFitの制御、そしてWin32 APIを用いた描画パイプラインの同期。これらを完璧に掌握したとき、Word VBAは単なる「ワープロのマクロ」を超えて、ミッションクリティカルな超高速帳票生成エンジンへと昇華します。現場のシステム拡張・レガシー刷新にぜひ本モジュールを組み込んでください。