Word VBAでのDo…Loopステートメント完全ガイド：初心者でもわかる使い方と活用法

Word VBAを使って繰り返し処理を行いたいけれど、どこから始めればよいのか分からない…そんなあなたにぴったりのガイドです。今回は、Word VBAでの「Do…Loop」ステートメントの基本から応用まで、わかりやすく解説します。これを読めば、あなたも繰り返し処理の達人になれること間違いなしです！

Do…Loopステートメントとは？
1. 基本構文
2. 実行タイミングの違い
実際の使用例
1. 文書内の特定の文字列を検索して置換する
2. ユーザーからの入力を繰り返し取得する
よくある質問や疑問
今すぐ解決したい！どうしたらいい？
まとめ

Do…Loopステートメントとは？

Wordのイメージ

Word VBAにおけるDo…Loopステートメントは、指定した条件が満たされるまで、または満たされる間、処理を繰り返すための命令です。例えば、文書内の特定の文字列を検索して置換する処理を繰り返す場合などに使用します。

基本構文

Do…Loopステートメントには、主に以下の2種類の構文があります。

ここがポイント！

Do While 条件式
条件式がTrueの間、処理を繰り返します。
Do Until 条件式
条件式がTrueになるまで、処理を繰り返します。

実行タイミングの違い

ここがポイント！

Do While 条件式 Loop
ループの最初で条件をチェックし、条件が満たされない場合は一度も処理が実行されません。
Do Loop While 条件式
ループの最後で条件をチェックし、条件が満たされない場合でも一度は処理が実行されます。

実際の使用例

文書内の特定の文字列を検索して置換する

Word文書内で「旧会社名」を「新会社名」に置換する処理を繰り返す例です。

Sub ReplaceCompanyName()

    Dim findText As String

    Dim replaceText As String

    findText = "旧会社名"

    replaceText = "新会社名"

' 置換処理の繰り返し Do While Selection.Find.Execute(FindText:=findText) Selection.TypeText Text:=replaceText Loop End Sub

このコードでは、Selection.Find.Executeメソッドを使用して、文書内で「旧会社名」を検索し、見つかるたびに「新会社名」に置換しています。

ユーザーからの入力を繰り返し取得する

ユーザーから日付の入力を繰り返し取得し、正しい形式で入力されるまで処理を続ける例です。

Sub GetDateInput()

    Dim userInput As String

    userInput = ""
    ' 入力が正しい形式でない限り繰り返し

    Do Until IsDate(userInput)

        userInput = InputBox("日付を入力してください（例: 2025/06/26）")

        If userInput = "" Then Exit Do ' キャンセル時は終了

    Loop

If IsDate(userInput) Then MsgBox "入力された日付は " & userInput & " です。" Else MsgBox "有効な日付が入力されませんでした。" End If End Sub

このコードでは、ユーザーが日付を正しい形式で入力するまで、InputBoxを使って繰り返し入力を求めています。