Word VBAのIf文をマスターしよう！初心者向けガイド

2025.03.10

皆さん、こんにちは！今日は、WordのVBA（Visual Basic for Applications）で使われるIf文についてお話しします。プログラミング初心者の方でも、これを理解すれば条件に応じた処理を自動化できますよ。

If文とは？その基本構造
実際の使用例文書内の特定の単語を強調する
複数の条件を扱うElseIfの活用
よくある質問や疑問
1. Q1: If文とSelect Case文の違いは何ですか？
2. Q2: If文の中にIf文を入れることはできますか？
今すぐ解決したい！どうしたらいい？
まとめ

If文とは？その基本構造

Wordのイメージ

まず、If文とは何でしょうか？簡単に言うと、「もし○○なら、△△をする」という指示をプログラムに与えるものです。例えば、「もし文書の文字数が1000文字以上なら、警告を表示する」といった具合です。

基本的な構文は以下の通りです

vba

If 条件 Then

    ' 条件が真の場合の処理

Else

    ' 条件が偽の場合の処理

End If

このように、条件が真（True）の場合と偽（False）の場合で異なる処理を行うことができます。

実際の使用例文書内の特定の単語を強調する

具体的な例を見てみましょう。例えば、文書内に「重要」という単語が含まれていたら、その単語を太字にするマクロを作成するとします。

vba

Sub 強調する()

    Dim rng As Range

    Set rng = ActiveDocument.Content

    With rng.Find

        .Text = "重要"

        .Forward = True

        .Wrap = wdFindStop

        .Format = True

        Do While .Execute

            rng.Font.Bold = True

        Loop

    End With

End Sub

このマクロは、文書内を検索し、「重要」という単語を見つけたら、その部分を太字にします。

複数の条件を扱うElseIfの活用

時には、複数の条件に応じて異なる処理を行いたい場合もあります。その際には、ElseIfを使います。

vba

If 条件1 Then

    ' 条件1が真の場合の処理

ElseIf 条件2 Then

    ' 条件2が真の場合の処理

Else

    ' どちらの条件も偽の場合の処理

End If

例えば、文書内の文字数に応じてメッセージを表示するマクロを考えてみましょう。

vba

Sub 文字数チェック()

    Dim charCount As Long

    charCount = ActiveDocument.Content.Characters.Count

If charCount > 1000 Then MsgBox "文書の文字数は1000文字を超えています。" ElseIf charCount > 500 Then MsgBox "文書の文字数は500文字を超えています。" Else MsgBox "文書の文字数は500文字以下です。" End If End Sub

このマクロは、文書の文字数に応じて異なるメッセージを表示します。