Wordで業務効率化！フォント・用紙・フッターを自動設定するVBAマクロ（Mac & Windows対応）zuok

Microsoft Wordでの繰り返し作業を一瞬で自動化！このVBAマクロで、フォント、用紙サイズ、余白、フッターを簡単に設定。Mac版Wordでの手順をメインに、Windows版でも応用可能な方法を紹介します。業務効率化や備忘録として、ぜひ試してみてください！

目的

Wordでドキュメント作成時、手動で設定するのは面倒ですよね。このマクロなら以下を自動で設定：

• フォント: 全文を「HG丸ゴシックM-PRO」に統一

• 用紙サイズ: A4

• 余白: やや狭い（上下2.54cm、左右1.905cm）

• フッター: 中央にファイル名（拡張子なし）、ページ数が2以上の場合、右側にページ番号（1, 2, 3…）

業務時間を短縮し、同じ悩みを持つ人の助けになれば幸いです！

VBAコード

以下がマクロのコードです。コピーして使ってみてください。

vba

Sub 自動処理_HG丸フォント_A4_やや狭い_改行なし()    ' --- フォント変更（HG丸ゴシックM-PRO） ---    With ActiveDocument.Content.Font        .Name = "HG丸ｺﾞｼｯｸM-PRO"    End With    ' --- 用紙サイズの設定（A4） ---    With ActiveDocument.PageSetup        .PaperSize = wdPaperA4    End With    ' --- 余白設定（やや狭い相当） ---    With ActiveDocument.PageSetup        .TopMargin = CentimetersToPoints(2.54)        .BottomMargin = CentimetersToPoints(2.54)        .LeftMargin = CentimetersToPoints(1.905)        .RightMargin = CentimetersToPoints(1.905)    End With    ' --- フッター設定 ---    Dim section As Section    Dim footer As HeaderFooter    Dim fileName As String    Dim pageCount As Long    ' ファイル名を取得（拡張子なし）    fileName = Left(ActiveDocument.Name, InStrRev(ActiveDocument.Name, ".") - 1)    ' ページ数を取得    pageCount = ActiveDocument.ComputeStatistics(wdStatisticPages)    ' 各セクションのフッターを処理    For Each section In ActiveDocument.Sections        ' プライマリフッターを操作        Set footer = section.Footers(wdHeaderFooterPrimary)                ' 既存のフッター内容をクリア        footer.Range.Text = ""                ' フッターを3つの部分（左、中央、右）に分けるためにタブストップを使用        With footer.Range            ' 中央タブストップを設定（ページ幅の中央、約半分の位置）            .ParagraphFormat.TabStops.Add Position:=CentimetersToPoints(8), Alignment:=wdAlignTabCenter            ' 右タブストップを設定（ページ幅の右端付近）            .ParagraphFormat.TabStops.Add Position:=CentimetersToPoints(16), Alignment:=wdAlignTabRight        End With                ' フッター中央にファイル名を設定        With footer.Range            .Text = vbTab & fileName & vbTab            .Font.Name = "HG丸ｺﾞｼｯｸM-PRO"        End With                ' ページ数が2以上の場合、右側にページ番号を追加        If pageCount > 1 Then            ' ページ番号用の新しい範囲を作成            Dim pageRange As Range            Set pageRange = footer.Range            With pageRange                .Collapse wdCollapseEnd                ' 右タブに移動してページ番号フィールドを挿入                .InsertAfter vbTab                .Fields.Add Range:=pageRange, Type:=wdFieldPage                .Font.Name = "HG丸ｺﾞｼｯｸM-PRO"            End With        End If    Next section    ' フィールドを更新してページ番号を反映    ActiveDocument.Fields.Update    MsgBox "フォント・用紙・余白調整およびフッター設定が完了しました！"End Sub

使い方

Mac版Wordを優先した手順です。Windowsユーザー向けの補足もご確認ください。

1. マクロの追加

• Mac版Word

  1. Wordを開き、Option + F11を押してVBAエディタを開きます。

  2. 挿入 > モジュールを選択し、新しいモジュールを追加。

  3. 上記のコードをコピー＆ペースト。

  4. ファイル > 保存でVBAプロジェクトを保存。

• Windows版補足

  • Alt + F11でVBAエディタを開く。それ以外は同様。

2. ファイルの保存

• Mac版Word

  1. Wordに戻り、ファイル > 名前を付けて保存を選択。

  2. ファイルの形式で「Wordマクロ有効文書 (.docm)」を選び、名前（例: MyDocument.docm）を付けて保存。

• Windows版補足

  • 手順は同じ。「保存の種類」で「Wordマクロ有効文書 (.docm)」を選択。

3. マクロの実行

• Mac版Word

  1. ツール > マクロ > マクロをクリック（またはOption + F8）。

  2. 自動処理_HG丸フォント_A4_やや狭い_改行なしを選択し、実行。

• Windows版補足

4. リボンにボタンを追加

ボタンで簡単に実行できるようカスタマイズ！

• Mac版Word

  1. Word > 環境設定 > リボンとツールバーを選択。

  2. メイン タブで既存のタブ（例: ホーム）を選択。

  3. **+**ボタンで「新しいグループ」を追加。

  4. 名前の変更で例: 「マクロ操作」に変更。

  5. コマンドの選択を「マクロ」にし、自動処理_HG丸フォント_A4_やや狭い_改行なしを**>>**で追加。

  6. 名前の変更で表示名を「改行なし設定」に変更（アイコンは限定的な場合あり）。

  7. 保存をクリック。

  8. リボンの「マクロ操作」グループに「改行なし設定」ボタンが追加され、クリックで実行可能！

• Windows版補足

  • ファイル > オプション > リボンのユーザー設定を選択。

  • 新しいタブや新しいグループを作成（例: タブ「カスタムマクロ」）。

  • コマンドの選択を「マクロ」にし、追加。

  • 名前の変更で表示名とアイコンを設定し、OK。

5. 結果

• フォント、用紙サイズ、余白が設定済み。

• フッター: 中央にファイル名（例: MyDocument）、ページ数が2以上の場合、右にページ番号（1, 2, 3…）。

実行後のフッター　「ファイル名」と「ページ番号」

注意点

• フォント
  「HG丸ｺﾞｼｯｸM-PRO」がMac/Windowsにインストールされているか確認。なければ「YuGothic」や「MS Gothic」などに変更。

• タブストップ
  フッターの位置（中央: 8cm、右: 16cm）はA4用紙向け。ずれる場合、コードのCentimetersToPoints(8)やCentimetersToPoints(16)を調整（例: 7.5cm、16.5cm）。

• 環境
  Mac版Word（例: Microsoft 365）で動作確認済み。Windows版（例: Word 2019以降）でも対応。バージョンにより挙動が異なる場合あり。

• 使用責任
  自己責任でご使用ください。

応用例

• フォント変更
  .Name = “HG丸ｺﾞｼｯｸM-PRO”を「YuGothic」など好みのフォントに。

• 余白調整
  CentimetersToPoints(2.54)を変更（例: 2cm）で余白をカスタマイズ。

• フッターカスタム
  ページ番号に「Page: 」を追加するには、.InsertAfter vbTab & “Page: “に変更。

感想

Macで作成したこのマクロで、Wordの作業が劇的に効率化！Windowsでも応用でき、業務で大活躍。同じ課題を持つ方々に共有したい便利ツールです！

タグ: #VBA #Word #Mac #Windows #業務効率化 #マクロ #自動化