初心者でもわかる！Word VBAのDo Whileループ完全ガイド

2025.06.262026.01.27

こんにちは！今日は、Microsoft Wordで使えるVBA（Visual Basic for Applications）の「Do Whileループ」について、初心者の方にもわかりやすく解説します。パソコンやスマホに詳しくない方でも安心して学べる内容にしていますので、ぜひ最後までご覧ください。

Do Whileループとは？
基本構文と使い方
条件の設定方法
Exit Doでループを途中で抜ける
Do WhileとDo Untilの違い
よくある質問や疑問
まとめ

Do Whileループとは？

Wordのイメージ

Word VBAの「Do Whileループ」は、指定した条件が「真（True）」の間、繰り返し処理を行う構文です。例えば、「文書の中で特定の文字列が見つかる限り、その位置を表示する」といった処理に使えます。

基本構文と使い方

まずは、Do Whileループの基本的な構文をご紹介します。

vba

Do While 条件

    ' 繰り返し実行する処理

Loop

この構文では、「条件」が真の間、ループ内の処理が繰り返されます。例えば、文書内で「VBA」という文字列を検索し、その位置を表示するコードは以下のようになります。

vba

Sub FindVBA()

    Dim rng As Range

    Set rng = ActiveDocument.Content

    Do While rng.Find.Execute(FindText:="VBA")

        MsgBox "見つかりました！位置: " & rng.Start

    Loop

End Sub

このコードでは、文書内で「VBA」という文字列を見つけるたびに、その位置をメッセージボックスで表示します。

条件の設定方法

Do Whileループの「条件」部分には、さまざまな条件式を設定できます。例えば

* `rng.Start < rng.End`：範囲の開始位置が終了位置より前であること * `Len(rng.Text) > 0`範囲内のテキストが空でないこと

これらの条件を組み合わせることで、より複雑な繰り返し処理が可能になります。

Exit Doでループを途中で抜ける

ループ内で特定の条件が満たされた場合に、ループを途中で抜けたいことがあります。その際に使うのが「Exit Do」です。例えば、文書内で「VBA」という文字列を見つけたら、最初の1回だけ処理を行いたい場合、以下のように記述します。

vba

Sub FindVBAOnce()

    Dim rng As Range

    Set rng = ActiveDocument.Content

    Do While rng.Find.Execute(FindText:="VBA")

        MsgBox "見つかりました！位置: " & rng.Start

        Exit Do

    Loop

End Sub

このコードでは、「VBA」を最初に見つけた時点でメッセージボックスを表示し、その後はループを抜けます。

Do WhileとDo Untilの違い

Do Whileループと似た構文に「Do Untilループ」があります。両者の違いは、条件が満たされるタイミングです。

Do While条件が「真」の間、繰り返し処理を行う
Do Until条件が「偽」の間、繰り返し処理を行う

例えば、文書内で「VBA」という文字列が見つからない限り処理を繰り返す場合、Do Untilを使用します。

vba

Sub FindVBAUntil()

    Dim rng As Range

    Set rng = ActiveDocument.Content

    Do Until rng.Find.Execute(FindText:="VBA")

        MsgBox "見つかりませんでした。"

    Loop

End Sub

このように、条件の設定方法によって使い分けが可能です。