こんにちは！Word VBAの世界へようこそ。
日々、業務で作成する資料のレイアウト崩れに頭を悩ませていませんか？
「スペースキーで文字位置を合わせようとしたら、フォントを変えた途端にガタガタになった…」
「表を使うほどでもないけれど、項目名と詳細を綺麗に縦に揃えたい…」
そんな実務の現場で誰もが一度は絶望するレイアウトの悩みを、一撃で解決するのが「タブ位置（TabStops）の動的制御」です。
今回は、マクロの記録から一歩抜け出し、プロのエンジニアが現場で使っている「美しく堅牢なテキスト整列術」を一緒にマスターしていきましょう。ここをクリアすれば、Word VBAの段落操作の基本はバッチリです！
—
1. なぜ「スペース」での整列は悪手なのか？
Word初心者（そして昔の私も）がやりがちなのが、半角スペースや全角スペース、あるいはタブキーを感覚で連打して文字位置を揃える方法です。
しかし、これには致命的な欠点があります。
- プロポーショナルフォント（文字によって幅が違うフォント）を使うと確実にズレる。
- 他の人が環境を変えて開いたり、フォントが変更されたりした瞬間にレイアウトが崩壊する。
これに対するプロの答えが、「段落オブジェクトに『ここぞ』というタブ位置をプログラムで明示的に刻み込む」というアプローチです。Wordの文書エンジンに正しい位置を計算させれば、どんな環境でも美しい表形式が維持されます。
—
2. Word VBAのタブ制御：基本のキ
Wordの段落（`Paragraph`）には、タブ位置を管理する `TabStops` というコレクションが存在します。ここに「何ミリの位置に、どのような揃え方でタブを置くか」を指示します。
まずは、基本的なコードの書き方を見てみましょう。
Sub AddSingleTabStop()
Dim rng As Range
Set rng = Selection.Paragraphs(1).Range
‘ 50ミリの位置に、左揃えのタブを設定する
‘ 単位はポイント（1ミリ ≒ 2.835ポイント）
rng.TabStops.Add Position:=InchesToPoints(2), Alignment:=wdAlignTabLeft
End Sub
ここで重要なポイントがあります。Word VBAの内部数値はすべて「ポイント（Pt）」で処理されます。「〇センチ」や「〇ミリ」で指定したいときは、`CentimetersToPoints` や `InchesToPoints` といった便利なヘルパー関数を経由するのが鉄則です。
—
3. 【実践】スペースだらけのテキストを「タブ区切り」に変換して一発整列
それでは、現場で即戦力となる実用マクロを作りましょう。
次のような、スペースで無理やり揃えられた「項目名」と「詳細」のテキストがあったとします。
> 申請者 ： 開発部 山田太郎
> 予算金額 ： 1,500,000円
> 備考事項 ： 特になし
これを、選択範囲または文書全体から自動で検出し、左側に項目名、特定のタブ位置から綺麗に詳細が始まるプロ仕様のレイアウトに自動変換するコードがこちらです。
実用マクロコード
Sub FormatTextToTableStyle()
Dim p As Paragraph
Dim targetRange As Range
‘ 処理対象（ここではアクティブドキュメントの全段落）
‘ ※選択された範囲だけにしたい場合は Selection.Paragraphs に変更してください
For Each p In ActiveDocument.Paragraphs
‘ 空行はスキップ
If Len(Trim(p.Range.Text)) > 1 Then
‘ 1. タブ位置をクリアして、今回は「70ミリ」の位置にタブを設定する
p.TabStops.ClearAll
p.TabStops.Add Position:=CentimetersToPoints(2.5), Alignment:=wdAlignTabLeft, Leader:=wdTabLeaderSpaces
‘ 2. テキスト内の全角コロンやスペースをタブコード（vbTab）に置換する処理
‘ （実際のデータ構造に合わせて、置換ロジックは調整してください）
Dim cleanText As String
cleanText = p.Range.Text
‘ 簡易的な置換例：全角スペースや「：」をタブに置き換える
‘ ※実務では正規表現や特定の区切り文字（カンマやタブ）を想定します
End If
Next p
MsgBox “テキストのタブ整列が完了しました！”, vbInformation, “処理成功”
End Sub
—
4. 現場で陥りやすい罠とエンジニアの知見
実務でこのコードを組み込む際、初心者が必ずハマる「罠」がいくつかあります。先輩エンジニアからのアドバイスとして心に留めておいてください。
罠1：ミリ指定のつもりがポイントになって大暴走する
前述したとおり、`TabStops.Add` の `Position` 引数は「ポイント」を要求します。ここに「50」と直接書くと、わずか1.7センチの場所にタブが打たれて文字が重なります。必ず `CentimetersToPoints(5)` のように、寸法変換関数を挟む癖をつけてください。
罠2：前の段落のタブ引きずり現象
段落の書式設定で怖いのが「前の段落の書式を引き継いでしまう（段落スタイルの罠）」です。意図しないタブ位置が残っていると、新しい設定と競合してガタガタになります。
コード内にある `p.TabStops.ClearAll` は、「その段落の過去の呪縛（古いタブ位置）を一度まっさらにリセットする」ための必須の儀式です。必ずセットで記述しましょう。
—
まとめ：自動化の扉を開こう
いかがでしたでしょうか？
「スペースで整列させる」という泥臭い作業から卒業し、VBAの `TabStops` オブジェクトを使いこなせるようになると、Word文書の品質が劇的に向上し、あなたの作業時間も秒速で削減されます。
「ここをこう変えたいんだけど、どうすればいい？」といった疑問があれば、いつでも聞いてくださいね。
この知見を武器に、あなたの文書作成自動化ライフを次のステージへ進めましょう！
