WordのVBA（Visual Basic for Applications）を使って、マクロの実行中に「5秒待機する」処理を入れたいと思ったことはありませんか？例えば、ある操作を実行した後に、少し間を置いてから次の処理を始めたい場合などです。
でも、WordのVBAにはExcelのように簡単に使える「Application.Wait」メソッドがありません。そこで、初心者の方でもわかりやすい方法で、Word VBAで5秒待機する方法をご紹介します。
目次
PowerPointのイメージ
VBAで待機する理由とは？
Word VBAで5秒待機する方法
よくある質問
VBAで待機する理由とは？
VBAで処理を一時停止したい理由はさまざまです。例えば、外部アプリケーションとの連携時に処理が完了するまで待機したい場合や、ユーザーに操作を促すために一時停止したい場合などです。
Word VBAで5秒待機する方法
Word VBAで5秒待機する方法はいくつかありますが、初心者の方でも簡単に実装できる方法をご紹介します。
方法1: Timer関数とDoEventsを使う方法
この方法では、Timer関数を使って現在の時刻を取得し、指定した秒数だけループを回すことで待機します。DoEventsを使うことで、他の操作も受け付けるようにしています。
以下のコードをVBAエディタに入力して試してみてください。
vba
Sub Wait5Seconds()
Dim StartTime As Double
StartTime = Timer
Do While Timer < StartTime + 5
DoEvents
Loop
End Sub
このコードを実行すると、5秒間待機した後に次の処理が実行されます。
方法2: Windows APIのSleep関数を使う方法
WindowsのAPI関数であるSleepを使うことで、より正確に待機することができます。ただし、この方法を使うには、VBAでSleep関数を宣言する必要があります。
以下のコードをVBAエディタに入力して試してみてください。
vba
#If VBThen
Private Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As LongPtr)
#Else
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
#End If
Sub Wait5Seconds()
Sleep 5000 ' 5000ミリ秒 = 5秒
End Sub
このコードを実行すると、5秒間待機した後に次の処理が実行されます。
よくある質問
Q1: Sleep関数を使うとWordがフリーズしてしまうのはなぜですか？
Sleep関数を使うと、指定した時間だけWordが応答しなくなります。これを避けるためには、Timer関数とDoEventsを組み合わせて使う方法をおすすめします。
Q2: Macでも同じ方法が使えますか？
MacではWindows APIのSleep関数が使えないため、Timer関数とDoEventsを組み合わせた方法を使用してください。
今すぐ解決したい！どうしたらいい？
いま、あなたを悩ませているITの問題を解決します！
「エラーメッセージ、フリーズ、接続不良...もうイライラしない！」
あなたはこんな経験はありませんか？
✅ ExcelやWordの使い方がわからない💦
✅ 仕事の締め切り直前にパソコンがフリーズ💦
✅ 家族との大切な写真が突然見られなくなった💦
✅ オンライン会議に参加できずに焦った💦
✅ スマホの重くて重要な連絡ができなかった💦
平均的な人は、こうしたパソコンやスマホ関連の問題で年間73時間（約9日分の働く時間！）を無駄にしています。あなたの大切な時間が今この悩んでいる瞬間も失われています。
LINEでメッセージを送れば即時解決！
すでに多くの方が私の公式LINEからお悩みを解決しています。
最新のAIを使った自動応答機能を活用していますので、24時間いつでも即返信いたします。
誰でも無料で使えますので、安心して使えます。
問題は先のばしにするほど深刻化します。
小さなエラーがデータ消失や重大なシステム障害につながることも。解決できずに大切な機会を逃すリスクは、あなたが思う以上に高いのです。
あなたが今困っていて、すぐにでも解決したいのであれば下のボタンをクリックして、LINEからあなたのお困りごとを送って下さい。
ぜひ、あなたの悩みを私に解決させてください。
まとめ
Word VBAで5秒待機する方法として、Timer関数とDoEventsを組み合わせた方法をご紹介しました。この方法は、初心者の方でも簡単に実装でき、他の操作も受け付けることができます。
他にも疑問やお悩み事があれば、お気軽にLINEからお声掛けください。
コメント