Word VBAのDo Whileループをマスターしよう！初心者向け解説

皆さん、こんにちは！今回は、WordのVBAで使われる「Do Whileループ」について、初心者の方にもわかりやすくお話しします。これをマスターすれば、Wordでの作業がもっと効率的になりますよ！

Do Whileループとは？
1. 基本的な構文
実際の使用例
無限ループに注意！
ループを途中で抜ける方法
よくある質問や疑問
1. Do WhileループとFor Nextループの違いは何ですか？
2. Do Whileループ内で特定の処理をスキップするにはどうすれば良いですか？
今すぐ解決したい！どうしたらいい？
まとめ

Do Whileループとは？

Wordのイメージ

まず、「Do Whileループ」って何でしょうか？簡単に言うと、指定した条件が真（True）である間、特定の処理を繰り返すための仕組みです。例えば、「ある条件が満たされている間、処理を続ける」といった場合に使います。

基本的な構文

具体的には、以下のように書きます

vba

Do While 条件式

    ' 繰り返し処理

Loop

この構文では、条件式が真である間、`Do While`と`Loop`の間に書かれた処理が繰り返されます。

実際の使用例

では、具体的な例を見てみましょう。例えば、Word文書内のすべての段落を順番に処理する場合を考えてみます。

vba

Sub 段落を処理する()

    Dim para As Paragraph

    For Each para In ActiveDocument.Paragraphs

        ' ここに各段落に対する処理を記述

        para.Range.Text = "処理済み: " & para.Range.Text

    Next para

End Sub

このコードでは、文書内の各段落に「処理済み: 」というテキストを追加しています。`For Each`ループを使っていますが、`Do While`ループでも同様の処理が可能です。

無限ループに注意！

`Do While`ループを使う際に気をつけたいのが、無限ループです。条件が永遠に真である場合、ループが終わらなくなってしまいます。例えば

vba

Sub 無限ループの例()

    Dim i As Integer

    i = 1

    Do While i > 0

        ' 無限に繰り返される処理

        i = i + 1

    Loop

End Sub

このコードでは、`i`が常に増加し続けるため、条件`i > 0`は常に真となり、ループが終わりません。無限ループを避けるためには、ループ内で条件が変化するように工夫することが重要です。

ループを途中で抜ける方法

場合によっては、特定の条件を満たしたときにループを途中で終了したいこともあります。その際には、`Exit Do`ステートメントを使用します。

vba

Sub ループの途中で抜ける()

    Dim i As Integer

    i = 1

    Do While i <= 10
        If i = 5 Then
            Exit Do ' iが5になったらループを終了
        End If
        i = i + 1
    Loop
    MsgBox "ループを終了しました。iの値は " & i
End Sub

このコードでは、`i`が5になった時点でループを終了し、メッセージボックスで`i`の値を表示します。

よくある質問や疑問

Do WhileループとFor Nextループの違いは何ですか？

For Nextループは、繰り返し回数が決まっている場合に使用します。一方、Do Whileループは、条件が真である間繰り返し処理を行うため、繰り返し回数が事前にわからない場合に適しています。

Do Whileループ内で特定の処理をスキップするにはどうすれば良いですか？

特定の条件を満たす場合に処理をスキップしたい場合は、`If...Then...Else`ステートメントを使用して、その条件を満たすときに`Continue Do`ステートメントを実行します。

vba

Sub 特定の処理をスキップする()

    Dim i As Integer

    i = 0

    Do While i < 10
        i = i + 1
        If i = 5 Then
            ' iが5のときは処理をスキップ
            Continue Do
        End If
        ' ここに処理を記述
    Loop
End Sub

このコードでは、`i`が5のときに`Continue Do`が実行され、その後の処理がスキップされます。