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

如何向VBA Word添加错误循环？

1 个答案: