Word VBAの深淵：動的ぶら下げインデントの自動計算とメモリ最適化の極致
Wordの標準機能である「箇条書き」に頼り切った自動化は、実務の現場では往々にして破綻する。クライアントから支給される不定形なテキスト、あるいはデータベースから動的に生成される報告書において、フォントサイズや文字数が入り乱れる中、完璧な「ぶら下げインデント」を維持するのは至難の業だ。
多くの初学者は `ParagraphFormat.CharacterUnitFirstLineIndent` を固定値で埋め込む。だが、真のエンジニアであれば、「レンダリングされる文字の物理的な幅」を計算し、レイアウトを論理的に決定するアプローチを採るべきだ。
本稿では、Wordの描画エンジンを逆手に取り、動的なインデント計算を実装する手法を伝授する。
—
1. なぜ「固定値」は敗北するのか
Wordにおいて、インデントは「pt（ポイント）」単位で管理される。しかし、我々が扱うのは「文字数」だ。全角・半角が混在し、かつフォントが可変幅（プロポーショナルフォント）である場合、固定値のインデントは数行目で必ず崩壊する。
これを解決するには、`Range.ComputeStatistics` による文字数解析と、`GetTextWidth` 的なアプローチ（あるいは測定用ダミーオブジェクトの活用）が必要となる。
2. 実装の核心：動的インデント計算エンジン
以下のコードは、指定した段落に対し、先頭の「番号」や「記号」の幅を動的に測定し、それに追従する形で本文をぶら下げインデントさせるロジックだ。
Option Explicit
‘ メモリ管理の鉄則：オブジェクト変数は必ず明示的に解放する
Public Sub ApplyDynamicHangingIndent(targetPara As Paragraph)
Dim rng As Range
Dim indentValue As Single
‘ 処理対象のRangeを制御
Set rng = targetPara.Range
‘ 1. インデント量の算出ロジック
‘ ここでは「全角3文字分」を動的に取得する例
‘ 実際にはフォントサイズ×文字数×係数を適用する
indentValue = targetPara.Range.Font.Size 3
‘ 2. パラグラフ設定の最適化
With targetPara.Format
.CharacterUnitLeftIndent = 0
.CharacterUnitFirstLineIndent = -indentValue
.CharacterUnitRightIndent = 0
‘ ぶら下げインデントの適用
.LeftIndent = indentValue
End With
‘ 3. オブジェクトの完全な破棄
Set rng = Nothing
End Sub
3. レガシー環境におけるメモリ最適化の知見
Word VBAはCOMオブジェクトの集合体だ。`Paragraph`や`Range`をループ内で不用意に生成し続けると、Wordのメモリ空間は断片化し、大規模文書ではクラッシュを誘発する。
- Setの解放: ループ内で `Set` を行う場合は、必ずループの終了直前に `Nothing` を明示すること。これはガベージコレクションの挙動を待つよりも、VBAのスタックをクリーンに保つための「儀式」である。
- 画面更新の制御: `Application.ScreenUpdating = False` は必須だが、さらに踏み込んで `Application.Calculation = wdCalculationManual` を併用することで、レイアウト再計算のトリガーを抑制せよ。
4. Windows APIを活用した高精度測定（上級者向け）
より精密な配置が必要な場合、VBA標準の関数では限界がある。`GetTextExtentPoint32` APIを呼び出し、デバイスコンテキスト（DC）経由で文字幅をピクセル単位で算出する手法がある。
‘ API宣言（モジュールヘッダに記述）
If VBA7 Then
Private Declare PtrSafe Function GetTextExtentPoint32 Lib “gdi32” Alias “GetTextExtentPoint32W” ( _
ByVal hdc As LongPtr, ByVal lpsz As LongPtr, ByVal cbString As Long, lpSize As Any) As Long
End If
これを用いれば、MSゴシックとメイリオが混在する環境でも、ピクセル単位の「完璧な余白」を計算できる。ただし、API呼び出しはWordの内部レンダリングとの同期をとる必要があり、リスクも高い。まずは、`Range.Information(wdHorizontalPositionRelativeToPage)` を駆使して、Word自身の座標系を読み取ることから始めるべきだ。
伝説のチーフアーキテクトからの助言
自動化において最も重要なのは、「例外を許容する設計」である。
完璧なインデント計算を実装したとしても、ユーザーが途中で手動改行を入れたり、図形を挿入したりすれば計算は狂う。その際、システムがエラーで止まるのではなく、`On Error Resume Next` で適切に処理をスキップするか、あるいは設定を初期値にリセットする「セーフティネット」を必ず組み込んでおけ。
コードは書くだけなら誰でもできる。しかし、「壊れないコード」を書くことこそが、伝説への唯一の道だ。
諸君の文書が、ピクセルレベルで美しく整列されることを期待している。
