VBA Wordにエラーループを追加するにはどうすればよいですか？

Question

私はWordで自動フォームを作成しようとしていますが、ほとんど完了しましたが、誤って日付を入力するとエラーメッセージが表示され、正しく応答されるまで質問にループバックする方法がわかりません。誰もこれで私を助けることができますか？その後、エラーが発生した場合

Sub mStartDate1() 

vStartDate1 = InputBox(Prompt:="Please enter the Start Date (dd/MMM/yyyy) and click ok.") 

On Error Resume Next 
    ActiveDocument.FormFields("bkStartDate1").Result = vStartDate1 

Call mStartTime1 

End Sub 

は、私は現在、それが次のフィールドに行くしているが、私はそれはエラーメッセージを提示したいと：

このコードは、現在の日付エントリのように見えるものですそれが正しく答えるまで質問にループバックしてください。

Answer 1

IsDate Functionを使用して日付が送信されているかどうかを確認してください。

While... Wend Statementを使用して実際の日付が入力されるまでループすることができます。日付を入力したら、この日付を処理に必要な形式に変換します。

Private Sub GetDate() 

    Dim dateInput As Variant 

    While Not IsDate(dateInput) 
     dateInput = InputBox("Insert date.") 
    Wend 

    dateInput = Format(dateInput, "dd/MMM/yyyy") 

End Sub