访问记录集（从 2 列）到 Word 模板（或空文档）

Question

我正在尝试将 Access 记录集中的数据（来自 2 列的数据 - “问题”和“答案”）导出（按钮单击）到具有表单字段“问题”和“答案”的 Word 模板。

我设法做到了，但直到 Word 文档用完 FormFields（我添加了 - 100），如果记录集有超过 100 行，它将导致错误“错误 5941 请求的集合成员不存在” - 因为它用完了可用的 FormFields（此时最大问题数为 1100，并且会增长）。顺便说一句，我可以添加数千个 FormField，但用户在使用此选项时必须删除空的。

我觉得有一种简单的方法可以实现其他类型的循环，该循环将采用只有这两个 FormField 的文档并复制或复制第一个 FormField - “问题”并在第二个中插入数据，但我仍然没有找不到任何方法。

从 Access 记录集中的 2 列中导出数据，一个是“问题”，另一个是“答案”。 ButtonClick 上的代码：

Private Sub cmdToWordMultiple_Click()
Dim db As DAO.Database
Dim rst As DAO.Recordset

Set db = CurrentDb()
Set rst = Me.RecordsetClone
Set Wd = New Word.Application
Set myDoc = Wd.Documents.Add("C:\Users\User\Desktop\ReportQuestions.docx")

Wd.Visible = True
rst.MoveFirst

Do Until rst.EOF

    myDoc.FormFields("Question").Range.Text = Nz(rst!Question, "")
    myDoc.FormFields("Answer").Range.Text = Nz(rst!Answer, "")

rst.MoveNext
Loop

rst.Close
Set rst = Nothing

objWord.Application.Quit

End Sub

我想让这个按钮将数据从 Access 记录集导出到 Word 文档，而不留下多余的 FormFields。

Answer 1

最有效的是将表单字段保存为构建块，可以根据需要随时插入。 Building Blocks 只能保存在模板中，因此打开 ReportQuestions.docx 然后使用 File/Save As 将其保存为dotx。

选择这对表单域，然后使用插入->快速部件->将选择保存到快速部件库。填写对话框中的字段，确保为“保存”选择模板 ReportQuestions.dotx。

要插入表单域，代码如下所示。另请注意，在插入下一对表单域之前，如何在每次迭代中到达文档的末尾。 （另见代码下方的注释！）

Dim tmpl as Word.Template
Dim sTmplPath as String
sTmplPath = "C:\Users\User\Desktop\ReportQuestions.dotx"
Set myDoc = Wd.Documents.Add(sTmplPath)
Set tmpl = myDoc.AttachedTemplate

Dim rngEndOfDoc as Word.Range
Set rngEndOfDoc = myDoc.Content
rngEndOfDoc.Collapse wdWollapseEnd
tmpl.BuildingBlockEntries("Name of Entry").Insert Where:=rngEndOfDoc, RichText:=True

这建立在问题中显示的代码之上。根据我对表单域的经验，我怀疑此代码（如图所示）不适用于一对以上的表单域因为表单域名称也是 Word 书签。并且书签名称​​必须在文档中是唯一的（只能出现一次）。所以Question 和Answer 只能使用一次。我不知道您实际上是在为表单域命名什么，但您可能需要添加代码以在插入表单域后重命名它们。

从 OP 的评论中添加：该建议已成功实施，如下所示

Do Until rst.EOF 
  tmpl.BuildingBlockEntries("Answer").Insert Where:=rngEndOfDoc, RichText:=True myDoc.FormFields("Answer").Range.Text = "ANSWER: " & Nz(rst!Answer, "") 
  rst.MoveNext 
Loop