Word VBAで余白を簡単に設定する方法｜初心者でもわかるマクロ活用術

Wordで文書を作成していると、余白の調整が必要になることがあります。特に、提出資料やレポートなどで、指定された余白に合わせることが求められる場面が多いです。そんなときに役立つのが、Word VBA（Visual Basic for Applications）を使ったマクロです。

今回は、初心者の方でもわかりやすいように、Word VBAで余白を設定する方法を解説します。パソコンやスマホの操作に不安がある方でも、安心して取り組める内容になっていますので、ぜひ最後までご覧ください。

Word VBAで余白を設定する基本のマクロ
セクションごとに異なる余白を設定する方法
テキストボックス内の余白を調整する方法
よくある質問や疑問
今すぐ解決したい！どうしたらいい？
まとめ

Word VBAで余白を設定する基本のマクロ

Wordのイメージ

まずは、文書全体の余白を一括で設定する基本的なマクロをご紹介します。以下のコードをVBAエディタに入力して実行することで、上下左右の余白を10mmに設定できます。

Sub SetMargins()

    With ActiveDocument.PageSetup

        .TopMargin = MillimetersToPoints(10)

        .BottomMargin = MillimetersToPoints(10)

        .LeftMargin = MillimetersToPoints(10)

        .RightMargin = MillimetersToPoints(10)

    End With

End Sub

このマクロを実行すると、文書全体の余白が10mmに統一されます。特に、提出資料やレポートなどで指定された余白に合わせる際に便利です。

セクションごとに異なる余白を設定する方法

文書内でセクションごとに異なる余白を設定したい場合、以下のマクロを使用します。これにより、各セクションの余白を個別に調整できます。

Sub SetSectionMargins()

    Dim sec As Section

    For Each sec In ActiveDocument.Sections

        With sec.PageSetup

            .TopMargin = MillimetersToPoints(10)

            .BottomMargin = MillimetersToPoints(10)

            .LeftMargin = MillimetersToPoints(10)

            .RightMargin = MillimetersToPoints(10)

        End With

    Next sec

End Sub

このマクロを実行すると、文書内のすべてのセクションの余白が10mmに設定されます。特定のセクションだけを変更したい場合は、`For Each`ループ内で条件を追加することで対応できます。

テキストボックス内の余白を調整する方法

文書内のテキストボックスの余白を調整したい場合、以下のマクロを使用します。これにより、テキストボックス内の上下左右の余白を個別に設定できます。

Sub SetTextboxMargins()

    Dim shp As Shape

    For Each shp In ActiveDocument.Shapes

        If shp.Type = msoTextBox Then

            With shp.TextFrame

                .TopMargin = MillimetersToPoints(5)

                .BottomMargin = MillimetersToPoints(5)

                .LeftMargin = MillimetersToPoints(5)

                .RightMargin = MillimetersToPoints(5)

            End With

        End If

    Next shp

End Sub

このマクロを実行すると、文書内のすべてのテキストボックスの余白が5mmに設定されます。特定のテキストボックスだけを変更したい場合は、`If`文内で条件を追加することで対応できます。

よくある質問や疑問

Q1: VBAエディタの開き方がわかりません。

Wordを開き、「Alt」キーを押しながら「F11」キーを押すと、VBAエディタが開きます。エディタが開いたら、左側の「VBAProject」内の「ThisDocument」をダブルクリックし、右側のウィンドウにマクロを入力できます。

Q2: マクロを実行する方法は？

VBAエディタでマクロを入力したら、「F5」キーを押すか、上部の「実行」ボタンをクリックすると、マクロが実行されます。実行後、Wordに戻ると、設定した余白が反映されています。

Q3: 他の単位（例えばインチ）で余白を設定するには？

マクロ内で、`MillimetersToPoints(10)`の部分を`InchesToPoints(1)`のように変更することで、インチ単位で余白を設定できます。例えば、1インチの余白を設定する場合は、以下のように記述します。

Sub SetInchMargins()

    With ActiveDocument.PageSetup

        .TopMargin = InchesToPoints(1)

        .BottomMargin = InchesToPoints(1)

        .LeftMargin = InchesToPoints(1)

        .RightMargin = InchesToPoints(1)

    End With

End Sub