Microsoft Word从空白页上的表单中插入文本

Question

我正在使用Word-VBA设置表单，并希望将表单中的数据导出到单词表中。

我尝试使用以下字符串：Selection.FormFields.Add（myRange，wdFieldFormTextInput）.Result =“ response_”＆i

这是实际的代码：

'Account Information frame
Sub AccountInformation()

Dim strLanguage As String

strLanguage = ""
strLanguage = UserForm1.cmbLanguage.Value

With ActiveDocument.ActiveWindow.Selection
        .WholeStory
        .Find.Execute FindText:="<Language>"
        Options.ReplaceSelection = True
        .TypeText Text:=strLanguage

    End With

End Sub

出现实际形式，但插入的数据显示为空白答案，例如：