如何在受保护Word文档的表格中切换表单域？

受保护状态下的Word旧式表单域，尤其是表格内的域，用Selection相关方法跳转经常会因为保护限制失效，甚至触发4605错误。核心原因是文档保护锁定了Selection的跨单元格/段落移动权限，直接操作表单域对象才是可靠的方案。

方案1：按表单域名称精准填充（推荐） #

直接遍历文档中所有FormFields对象，通过域的名称匹配Excel数据，不管域在表格内还是外都能正常访问，且不受保护状态限制（只要保护时勾选了「填写窗体」）。

示例代码：

Sub ExcelToProtectedWord()
    Dim wdApp As Word.Application
    Dim wdDoc As Word.Document
    Dim xlSheet As Worksheet
    Dim targetFF As Word.FormField
    
    '初始化对象（根据实际情况调整）
    Set xlSheet = ThisWorkbook.Sheets("数据源")
    Set wdApp = GetObject(, "Word.Application") '假设Word已启动
    Set wdDoc = wdApp.ActiveDocument
    
    '按表单域名称匹配填充
    For Each targetFF In wdDoc.FormFields
        Select Case targetFF.Name
            Case "txtName" 'Word中表单域的名称
                targetFF.Result = xlSheet.Range("A2").Value
            Case "txtAge"
                targetFF.Result = xlSheet.Range("B2").Value
            Case "tbl_Address" '表格内的表单域名称
                targetFF.Result = xlSheet.Range("C2").Value
            '继续添加其他域的匹配规则
        End Select
    Next targetFF
    
    '释放对象
    Set targetFF = Nothing
    Set wdDoc = Nothing
    Set wdApp = Nothing
End Sub

方案2：按表单域出现顺序批量填充 #

如果不需要精准匹配名称，可按文档中表单域的先后顺序依次填充Excel数据，同样不受位置影响：

Sub FillFormByOrder()
    Dim wdDoc As Word.Document
    Dim xlSheet As Worksheet
    Dim ffCount As Integer
    Dim dataRow As Integer
    
    dataRow = 2 'Excel数据所在行
    Set xlSheet = ThisWorkbook.Sheets("数据源")
    Set wdDoc = GetObject(, "Word.Application").ActiveDocument
    
    For ffCount = 1 To wdDoc.FormFields.Count
        wdDoc.FormFields(ffCount).Result = xlSheet.Cells(dataRow, ffCount).Value
    Next ffCount
    
    Set wdDoc = Nothing
End Sub

关键注意事项 #

1. 确保文档保护类型为「填写窗体」：在Word中开启保护时，选择「限制编辑」→「允许此类型的编辑」→勾选「填写窗体」，这样表单域才具备可编辑权限，否则即使直接访问FormFields也会报错。
2. 查看表单域名称：在Word中右键旧式表单域→「属性」，即可查看并修改域的名称，建议给每个域设置唯一名称，避免填充错误。
3. 临时解除保护（可选）：如果必须使用Selection相关方法，可临时解除保护完成操作后再恢复，需知道保护密码：

Dim protectPwd As String
protectPwd = "yourPassword" '无密码则为空字符串

wdDoc.Unprotect Password:=protectPwd
'执行需要Selection的操作
wdDoc.Protect Type:=wdAllowOnlyFormFields, Password:=protectPwd

内容的提问来源于stack exchange，提问作者Cartographer7