Word VBAでフォントを自在に操る！初心者向け完全ガイド

Wordの文書作成で「フォント」を自在に操る方法を知りたくはありませんか？特に、同じ作業を何度も繰り返す方にとって、VBA（Visual Basic for Applications）を使えば、作業を自動化して効率化できます。今回は、初心者の方でもわかりやすく、実際に使えるコード例を交えて解説します。

Word VBAとは？
フォントを変更する基本のコード
特定の文字列だけをフォント変更する方法
全体のスタイルを変更する方法
よくある質問や疑問
今すぐ解決したい！どうしたらいい？
まとめ

Word VBAとは？

Wordのイメージ

Word VBAとは、Microsoft Wordに組み込まれているプログラミング言語の一つで、文書の編集や操作を自動化するためのツールです。例えば、毎回手動で行っているフォントの変更や書式設定を、VBAを使って一度にまとめて行うことができます。

フォントを変更する基本のコード

まずは、選択した部分のフォントを変更する基本的なコードから始めましょう。

Wordを開き、Alt + F11キーでVBAエディタを起動します。
「挿入」→「標準モジュール」を選択し、新しいモジュールを作成します。
以下のコードをコピーして貼り付けます

vba

Sub ChangeFont()

    With Selection.Font

        .Name = "Arial" ' フォント名をArialに設定

        .Size = 12 ' フォントサイズを12に設定

        .Bold = True ' 太字に設定

        .Italic = True ' 斜体に設定

        .Underline = True ' 下線を引く

        .Color = RGB(255, 0, 0) ' 赤色に設定

    End With

End Sub

このコードを実行すると、選択したテキストが指定したフォントと書式に変更されます。

特定の文字列だけをフォント変更する方法

文書内の特定の文字列だけをフォント変更したい場合、以下のコードを使用します。

vba

Sub ChangeSpecificTextFont()

    With ActiveDocument.Content.Find

        .ClearFormatting

        .Text = "変更したい文字列"

        .Replacement.ClearFormatting

        .Replacement.Font.Name = "Times New Roman"

        .Replacement.Font.Size = 14

        .Execute Replace:=wdReplaceAll

    End With

End Sub

このコードは、文書内の「変更したい文字列」をすべて検索し、見つかった箇所のフォントを「Times New Roman」に、サイズを14に変更します。

全体のスタイルを変更する方法

文書全体のスタイルを変更したい場合、以下のコードを使用します。

vba

Sub ChangeAllStylesFont()

    Dim sty As Style

    For Each sty In ActiveDocument.Styles

        If sty.Type = wdStyleTypeParagraph Then

            sty.Font.Name = "Calibri"

            sty.Font.Size = 11

        End If

    Next sty

End Sub

このコードは、文書内のすべての段落スタイルのフォントを「Calibri」に、サイズを11に変更します。