導入：なぜVBAで「タブ」や「均等割付」を扱うのか
日々の業務で、請求書や報告書をWordで作成する際、「名前」や「金額」といった項目をきれいに揃えるために、手作業でタブを打ったり、均等割付を適用したりしていませんか？
もし、その作業が数件なら問題ありませんが、数百件のデータをWordに流し込む必要がある場合、手作業ではミスも増え、膨大な時間がかかります。
VBAを使えば、特定の文字列を瞬時に指定した幅で均等割付にしたり、タブ位置をプログラムで制御してレイアウトを統一したりすることが可能です。今回は、Wordの書式設定をVBAで自在に操るための基礎テクニックを解説します。
基礎知識：Wordのレイアウトを支える「タブ」と「均等割付」
VBAでWordを操作する際、まず理解すべきは「Paragraph（段落）」と「Range（範囲）」という概念です。
タブ（Tab）は、一定の位置に文字列をジャンプさせる機能で、リスト形式の文書で見出しと内容を揃える際に非常に有効です。
均等割付（Distributed）は、文字数の異なる氏名や項目名を、指定した幅の中で均等に広げて見栄えを整える機能です。
VBAでは、これらを「Paragraphs.TabStops」や「Range.ParagraphFormat」プロパティを通じて制御します。
実装/解決策：VBAでWordの書式を制御する
VBAからWordを操作する場合、Wordのオブジェクトライブラリを参照設定するか、Late Binding（オブジェクト型で宣言）を使用します。以下は、アクティブなWord文書に対して、特定の段落にタブを設定し、別の文字列を均等割付にする手順です。
サンプルプログラム：Wordの書式をVBAで一括設定する
このコードをExcel VBAの標準モジュールに貼り付けて実行してください。（※実行前に、参照設定で「Microsoft Word XX.0 Object Library」にチェックを入れてください）
Sub FormatWordDocument()
‘ Wordアプリケーションを操作するための変数宣言
Dim wdApp As Object
Dim wdDoc As Object
‘ Wordアプリケーションを起動
Set wdApp = CreateObject(“Word.Application”)
wdApp.Visible = True
Set wdDoc = wdApp.Documents.Add
‘ 1. タブの設定
‘ 文書の最初の段落に対して、位置を100ポイントに設定
With wdDoc.Paragraphs(1).TabStops
.ClearAll ‘ 既存のタブを一度クリア
.Add Position:=wdApp.CentimetersToPoints(5), Alignment:=0 ‘ 5cmの位置に左揃えタブを追加
End With
‘ 2. 均等割付の設定
‘ 文書の2番目の段落（文字列）を、指定した幅（例：7文字分）に均等割付
Dim rng As Object
Set rng = wdDoc.Paragraphs(1).Range
rng.Text = “氏名” & vbTab & “山田太郎”
‘ 均等割り付けを行う
‘ ParagraphFormat.Alignmentを分散揃えにする
wdDoc.Paragraphs(1).Range.ParagraphFormat.Alignment = 3 ‘ 3 = wdAlignParagraphDistribute
MsgBox “Wordのレイアウト設定が完了しました。”
End Sub
応用・注意点：現場で陥りやすいバグの回避策
1. 単位の変換に注意：VBAで位置を指定する際、数値は「ポイント（pt）」単位が基本です。センチメートルで指定したい場合は、`CentimetersToPoints(n)`関数を必ず使用しましょう。
2. 既存設定のクリア：タブ設定を追加する際は、必ず`ClearAll`メソッドで既存のタブをリセットしてから追加してください。そうしないと、意図しない場所に前の設定が残ってしまい、レイアウトが崩れる原因になります。
3. Rangeの範囲指定：`Paragraphs(n).Range`は、改行コードまで含んだ範囲を指します。均等割付を行う際は、その段落全体に影響を与えるため、対象の段落が意図通りか常に確認するようにしましょう。
これらを習得すれば、複雑な帳票作成も自動化の対象となります。ぜひ現場の業務効率化に役立ててください。
