单词填充VBA在MS Access中用于表中的各个字段

Question

对于我们数据库的事件管理方面，我正在尝试在 149 调查报告中生成表中字段的数据，这是国家提供的 Word 文档模板(请参阅此处的链接(。

我制作了文档的只读版本，通过强制用户另存为来保持其完整性，并加载带有要引用的书签的文本表单字段(例如：txtcaseintroduction(。

我修改了在互联网上找到的用于处理表单字段的代码，并将其分配给其中一个表单上的按钮以帮助生成报告(出于安全原因，修改了Open引用(：

Private Sub cmdPrint_Click()
'Export 149 Report.
Dim appWord As Word.Application
Dim doc As Word.Document
'Avoid error 429, when Word isn't open.
On Error Resume Next
Err.Clear
'Set appWord object variable to running instance of Word.
Set appWord = GetObject(, "Word.Application")
If Err.Number <> 0 Then
'If Word isn't open, create a new instance of Word.
Set appWord = New Word.Application
End If
Set doc = appWord.Documents.Add("Y:ABC2018Case Files2018 - Incident FormsOPWDD 149 - Access Database Reference.docx", , True)
With doc
.FormFields("txtNIMRS").Result = Me.NIMRSID
.FormFields("txtInternalID").Result = Me.InternalIncidentID
.FormFields("txtIncidentDate").Result = Me.[IncidentOccurrenceDate]
.FormFields("txtDiscoverydate").Result = Me.[IncidentReportDate]
.FormFields("txtCaseIntroduction").Result = Me.CaseIntroduction
.FormFields("txtIncidentLocation").Result = Me.Location
.FormFields("txtBackground").Result = Me.BackgroundInfo
.FormFields("txtProtections").Result = Me.ImmedProtec
.FormFields("txtQuestion").Result = Me.InvestQuestion
.FormFields("txtTestName").Result = Me.[TestimonialEvidence]
.FormFields("txtDocumentaryE").Result = Me.[DocumentaryEvidence]
.FormFields("txtDemonstrativeE").Result = Me.[DemonstrativeEvidence]
.FormFields("txtPhysicalE").Result = Me.[PhysicalEvidence]
.FormFields("txtWSName").Result = Me.[WrittenStatements]
.FormFields("txtSummary").Result = Me.SummaryEvidence
.FormFields("txtConclusions").Result = Me.Text409
.FormFields("txtRecommendations").Result = Me.Text411
.FormFields("txtInvestigator").Result = Me.Investigator_s__Assigned
.FormFields("txtdatereport").Result = Me.Investigative_Report_Completion_Date
.Visible = True
.Activate
End With
Set doc = Nothing
Set appWord = Nothing
Exit Sub
errHandler:
MsgBox Err.Number & ": " & Err.Description
End Sub

以下字段有效：

.FormFields("txtNIMRS").Result = Me.NIMRSID
.FormFields("txtInternalID").Result = Me.InternalIncidentID
.FormFields("txtIncidentDate").Result = Me.[IncidentOccurrenceDate]
.FormFields("txtDiscoverydate").Result = Me.[IncidentReportDate]
.FormFields("txtIncidentLocation").Result = Me.Location
.FormFields("txtBackground").Result = Me.BackgroundInfo
.FormFields("txtProtections").Result = Me.ImmedProtec
.FormFields("txtQuestion").Result = Me.InvestQuestion
.FormFields("txtConclusions").Result = Me.Text409
.FormFields("txtRecommendations").Result = Me.Text411
.FormFields("txtdatereport").Result = Me.Investigative_Report_Completion_Date

其余字段(case introduction、investigator和附件字段(则没有。所有这些字段都存在于同一个表中。还值得注意的是，案例介绍曾经有效，但当我试图找出更多表单字段以应用于文档和参考时，它停止了工作。目标是让调查人员基本上在数据库中完成所有工作，然后将其导出为所需的格式以提交给国家。

我的问题：我需要对上面的代码做什么才能使非工作字段在填充 Word 文档时起作用？

回复评论中的问题

• 没有发生错误;当我使用按钮时，文本框根本没有填充。

• 表单域不需要存在于结果文档中。它们只是数据的"目标"。

Answer 1

由于表单字段不需要保留在结果文档中，最简单的方法是简单地将数据插入FormField.Range，这将替换(删除(表单字段。如果一致性很重要(最终结果对用户来说如何(，则可以以这种方式编写整个代码，但从编程的角度来看，不必如此。

注意：如果激活了表单保护，则需要将其关闭才能使此方法正常工作

If doc.ProtectionType <> -1 Then doc.Unprotect  '-1 = wdNoProtection

长度超过 255 个字符的字符串的示例代码行

.FormFields("txtCaseIntroduction").Range = Me.CaseIntroduction