なぜ、VBAで段落配置を制御する必要があるのか？
実務において、請求書や報告書などのビジネス文書をWordで自動生成する際、一つひとつ手作業で「右揃え」や「中央揃え」を設定していませんか？もし対象が10ページ、20ページと増えれば、その作業だけで膨大な時間を浪費してしまいます。
Word VBAを使えば、特定のキーワードが含まれる行や、特定のセクションの配置を一瞬で整えることが可能です。今回は、Word VBAで「段落配置（Alignment）」を制御する基本テクニックを解説します。
基礎知識：Wordの段落配置とは
Wordにおける「段落配置」とは、段落（改行コードまでの一塊）全体を、ページの左右に対してどう並べるかを指します。VBAでは、ParagraphFormatオブジェクトのAlignmentプロパティを使用して設定します。
主な配置の種類は以下の通りです。
・wdAlignParagraphLeft：左揃え
・wdAlignParagraphCenter：中央揃え
・wdAlignParagraphRight：右揃え
・wdAlignParagraphJustify：両端揃え
実装の解決策
VBAで配置を変更するには、対象となる「段落（Paragraph）」または「選択範囲（Selection）」を指定し、Alignmentプロパティに定数を代入します。実務では、特定のスタイルが適用された箇所や、特定の文字列が含まれる段落を抽出してから一括変更する手法が非常に効率的です。
サンプルプログラム：特定の段落を一括で配置変更する
以下のコードは、文書内の「宛名」という文字列が含まれる段落を右揃えにし、「タイトル」という文字列が含まれる段落を中央揃えにする実用的なサンプルです。
Sub FormatParagraphAlignment()
‘ 文書内の全段落をループ処理
Dim para As Paragraph
For Each para In ActiveDocument.Paragraphs
‘ 「宛名」が含まれる行を右揃えにする
If InStr(para.Range.Text, “宛名”) > 0 Then
para.Alignment = wdAlignParagraphRight
End If
‘ 「タイトル」が含まれる行を中央揃えにする
If InStr(para.Range.Text, “タイトル”) > 0 Then
para.Alignment = wdAlignParagraphCenter
‘ ついでにフォントサイズも大きくするなどの応用も可能
para.Range.Font.Size = 16
End If
Next para
MsgBox “段落の配置設定が完了しました。”
End Sub
応用・注意点：現場で陥りやすい罠
1. 範囲の誤りに注意
Word VBAでは、段落記号（改行コード）も含めて「段落」とみなされます。InStr関数などで判定する場合、余計な空白が含まれていると判定されないことがあります。`Trim(para.Range.Text)` を使用して、前後の空白を除去してから判定することをおすすめします。
2. 処理速度への配慮
文書が非常に長い場合、1段落ずつループすると時間がかかることがあります。その場合は、`Selection.Find` を使って対象箇所を検索し、見つかった範囲（Range）に対して直接配置を設定する方が高速です。
3. 誤作動の回避
一度設定した配置を解除したい場合は、`wdAlignParagraphLeft`（左揃え）を代入することで、デフォルトの状態に戻すことができます。常に期待通りのレイアウトになるよう、コードの実行前には必ずバックアップをとる習慣をつけましょう。
これらの基本を押さえるだけで、Wordでの帳票作成業務は劇的にスピードアップします。ぜひ試してみてください。
