Word VBAを掌握せよ：表を使わず「タブ」でテキストを美しく整列させる極意
こんにちは。自動化の現場で日々Wordの挙動と対峙しているエンジニアです。
Wordで文書を作成する際、「表（Table）」を使うのが一番手っ取り早い整列手法だと思っていませんか？確かに表は便利ですが、文書の構造が複雑になればなるほど、入れ子構造や行の分割でWordのレンダリングエンジンは悲鳴を上げます。
実は、プロがWordの文書レイアウトを制御する際に重宝するのが「タブ（Tab）」の完全制御です。今回は、VBAを使って段落のタブ位置を動的に定義し、まるで組版ソフトのようにテキストを整列させる、一歩先行く技術を伝授します。
—
なぜ「タブ設定」をプログラムするのか？
Wordの「マクロの記録」でタブ設定を記録すると、非常に冗長で、かつ環境依存の強いコードが出力されます。我々エンジニアが目指すべきは、「文書の構造に合わせて動的にタブ位置を計算し、一瞬で適用する」というアプローチです。
タブをマスターすれば、目次、契約書の条項、複雑なリストを「表なし」で極めて軽量かつ保守性の高いドキュメントとして構築できます。
—
1. タブ制御の核心：`TabStops` オブジェクト
Word VBAにおいて、タブは`Paragraph`オブジェクトの配下にある`TabStops`コレクションで管理されています。
- `ClearAll`: 一度デフォルトの設定をクリアする（ここが重要です）。
- `Add`: 特定の位置（ポイント単位）にタブを追加する。
実践コード：特定の段落を美しく整列させる
まずは、選択範囲の段落に対して、左揃えタブと右揃えタブを設定する汎用的なコードを見てみましょう。
Sub SetCustomTabs()
Dim para As Paragraph
‘ 選択範囲内の各段落をループ
For Each para In Selection.Paragraphs
‘ 既存のタブを一度クリア（必須の儀式です）
para.TabStops.ClearAll
‘ 30ptの位置に左揃えタブを追加
para.TabStops.Add Position:=CentimetersToPoints(1), Alignment:=wdAlignTabLeft
‘ 400ptの位置に右揃えタブ（リーダー線付き）を追加
‘ これで「項目名……………..値」のようなリストが作れます
para.TabStops.Add Position:=CentimetersToPoints(14), _
Alignment:=wdAlignTabRight, _
Leader:=wdTabLeaderDots
Next para
MsgBox “タブ設定が完了しました。”
End Sub
—
2. 開発者が陥りやすい「3つの罠」
このコードを書く際、初心者が必ずと言っていいほどハマる落とし穴があります。
① 「単位」の混乱
`Add`メソッドの`Position`引数は「ポイント（pt）」単位です。センチメートルで直感的に扱いたい場合は、必ず `CentimetersToPoints()` 関数を通してください。これを通さないと、思った位置にタブが配置されず、レイアウトが崩壊します。
② `ClearAll`を忘れる（または無秩序な追加）
`TabStops.Add` は、既に存在するタブ設定に「追加」されます。ループの中で何度も実行すると、メモリ内に不要なタブ設定が蓄積され、Wordの動作が著しく重くなります。設定の前には必ず`ClearAll`を呼び出す。これがメモリ管理の基本です。
③ 選択範囲の境界条件
`Selection.Paragraphs` を使うと、選択範囲の一部だけが含まれる段落も対象になります。厳密に制御したい場合は、`Range`オブジェクトを明示的に指定し、文書構造（スタイル）に基づいて制御することを推奨します。
—
3. 次のステップ：スタイルと連動させる
ここまでは「個別の段落」への適用でしたが、真の達人は「スタイル」にタブ情報を埋め込みます。
Wordのスタイル定義自体にタブ設定を持たせれば、VBAでいちいち段落を走査する必要はありません。`ActiveDocument.Styles(“標準”).ParagraphFormat.TabStops.Add` のように、スタイル定義に対して直接アプローチするのです。
これにより、文書全体で一貫したレイアウトを保ちつつ、コードの実行回数を劇的に減らすことができます。
—
最後に：自動化エンジニアとしての心得
「マクロの記録」はあくまで学習の足がかりに過ぎません。本当に美しいドキュメント自動化は、「Wordの内部オブジェクトがどういう階層構造で構成されているか」を理解した瞬間に始まります。
今回紹介したタブ制御は、Wordのレイアウト調整における「魔法の杖」です。ぜひ、ご自身のプロジェクトで試してみてください。ここをクリアすれば、Word VBAはもう怖くありません。
もし途中でエラーが発生したり、より高度な制御（例えば、ページ幅に合わせて自動でタブ位置を計算する関数など）が必要になったら、またいつでも尋ねてください。共に自動化の深淵を極めていきましょう。
