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

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