在 Word VBA 中设置多个表单域的值

Question

有没有办法将多个表单字段的结果（值）设置为一个变量，而不是我为每个表单字段输入一行并一遍又一遍地使用相同的变量设置值？这就是我正在做的事情：

ActiveDocument.FormFields("Text31").Result = lender
ActiveDocument.FormFields("Text35").Result = lender
ActiveDocument.FormFields("Text46").Result = lender

所有这些表单字段都将读取相同的变量值，但字段位于我的 word 文档的不同部分。

我在文档中有一些页面，我在其中引入了 excel CSV，并且我准备的一些单词页面具有相同的数据，所以这就是问题的原因。如果这不可能，有没有办法将一个表单字段的值链接到另一个表单字段的值？

Answer 1

请尝试下一个代码：

Sub testFormFieldsResult()
   Dim ff As FormField, lender as string
   lender = "Another Test..."
   For Each ff In ActiveDocument.FormFields
        If ff.Type = wdFieldFormTextInput Then
            Select Case Right(ff.Name, 2)
                Case 31, 35, 46 'add whatever necessary
                    ff.Result = lender 
                Case 60, 61
                    'fill with something else
            End Select
        End If
   Next
End Sub