MS Word VBA 表单域验证失败后无法返回未正确填写字段问题

解决方案 #

你遇到的问题核心是Word表单域的事件执行顺序：退出事件绑定的宏执行完成后，Word才会执行跳转到下一个表单域的默认操作，所以你在宏内的选中操作会被后续的默认跳转覆盖。可以用以下两种方法解决：

方法1：使用退出事件的Cancel参数（推荐） #

Word表单域的退出宏支持Cancel参数，将其赋值为True即可直接取消默认的跳转操作，留在当前表单域，无需额外的定位逻辑：

1. 替换所有原有验证宏，使用统一的退出验证宏：

Option Explicit
Const bool_debug As Boolean = True
Const str_password As String = "###"

Sub FormFieldExitValidate(Cancel As Boolean)
    Dim curField As FormField
    If Selection.FormFields.Count = 0 Then Exit Sub
    Set curField = Selection.FormFields(1)
    
    Select Case curField.Name
        Case "Locality"
            Call Salary_Step
        Case "Series"
            If Len(curField.Result) <> 4 Or Not IsNumeric(curField.Result) Then
                MsgBox "请输入4位数字。"
                Cancel = True
            End If
        Case Else
            ' 仅验证下拉框
            If curField.Type = wdFieldFormDropDown Then
                If curField.DropDown.Value = 1 Then
                    MsgBox "请选择" & Replace(curField.Name, "_", " ") & "。"
                    Cancel = True
                End If
            End If
    End Select
End Sub

2. 将所有需要验证的表单域的「退出时」事件绑定到这个宏即可，不需要额外的书签存储、定位宏，也不需要全局变量。

方法2：延迟执行定位逻辑（适配你原有代码结构） #

如果你不想调整现有代码结构，可以用Application.OnTime延迟调用定位宏，等Word完成默认跳转后再切回目标表单域：

1. 修改你的GoBackToPrevious宏如下：

Sub GoBackToPrevious(strPreviousField As String)
    ' 延迟10毫秒执行定位，规避Word默认跳转的覆盖
    Application.OnTime Now + TimeValue("00:00:00.01"), _
        "'ExecuteGoBack """ & strPreviousField & """'"
End Sub

' 实际执行定位的子程序
Sub ExecuteGoBack(strFieldName As String)
    If bool_debug Then MsgBox ("ExecuteGoBack - 10: strFieldName = " & strFieldName)
    ActiveDocument.FormFields(strFieldName).Select
End Sub

2. 修正你原有Validate宏的语法错误：你原代码中Series分支的If判断仅作用于MsgBox行，Call GoBackToPrevious不受条件控制，无论输入是否符合要求都会执行，需要调整为块结构：

' 原错误写法
If ((Len(.FormFields(strBookmark).Result) <> 4) Or (Not IsNumeric(.FormFields(strBookmark).Result))) Then _
    MsgBox ("Please enter a 4 digit number.")
    Call GoBackToPrevious(.FormFields(strBookmark).Name)

' 修正后的写法
If (Len(.FormFields(strBookmark).Result) <> 4) Or (Not IsNumeric(.FormFields(strBookmark).Result)) Then
    MsgBox ("请输入4位数字。")
    Call GoBackToPrevious(.FormFields(strBookmark).Name)
End If

内容的提问来源于stack exchange，提问作者P James Norris