利用VBA在Word表格中检索表单域的行

在Word表格中利用VBA检索表单域的行，可以通过以下步骤实现：

首先，打开Word文档并进入开发工具选项卡。如果没有显示开发工具选项卡，可以通过点击文件->选项->自定义功能区，在“主选项卡”列表中勾选“开发工具”，然后点击确定。
在开发工具选项卡中，点击“Visual Basic”按钮，打开Visual Basic for Applications编辑器。
在编辑器中，可以看到左侧的“项目资源管理器”窗口和中间的“代码窗口”。在“项目资源管理器”窗口中，双击打开需要编辑的Word文档。
在代码窗口中，输入以下VBA代码：

Sub 检索表单域的行()
    Dim doc As Document
    Dim tbl As Table
    Dim rng As Range
    Dim i As Integer
    
    ' 设置文档对象
    Set doc = ActiveDocument
    
    ' 设置表格对象
    Set tbl = doc.Tables(1) ' 假设需要检索的表格是文档中的第一个表格
    
    ' 设置检索范围
    Set rng = tbl.Range
    
    ' 遍历表格中的每一行
    For i = 1 To tbl.Rows.Count
        ' 检查当前行是否包含表单域
        If rng.Cells(i).Range.FormFields.Count > 0 Then
            ' 执行需要的操作，例如获取表单域的值
            MsgBox rng.Cells(i).Range.FormFields(1).Result
        End If
    Next i
End Sub