Microsoft Access VBA - 从未命名的 Word 表单字段导入数据

Question

我的任务是将 Microsoft Word 表单的内容导入到我的 Access 数据库中。使用以下从表单触发的 VBA 代码工作正常：

Private Sub cmdFileDialog_Click()
  On Error GoTo ErrorHandler
    Dim objDialog As Object
    Dim varFile As Variant
    Dim rec, rec2 As Recordset
    Dim db As Database

    'New Word Document Variables
    Dim appWord As Word.Application
    Dim doc As Word.Document

    Const DEST_TABLE = "ap_behaviour_referrals" 'change to suit
    Const PATH_DELIM = "\"

    Set objDialog = Application.FileDialog(3)
    ' Clear listbox contents.
    Me.fileList.RowSource = ""

With objDialog
    .AllowMultiSelect = False
    ' Set the title of the dialog box.
    .Title = "Please select a behaviour referral to import"
    ' Clear out the current filters, and add our own.
      .Filters.Clear
      .Filters.Add "Microsoft Word Forms", "*.docx"
      .Filters.Add "All Files", "*.*"
    .Show
    If .SelectedItems.Count = 0 Then
        MsgBox "No file selected."
    Else
        For Each varFile In .SelectedItems
            'New docx Variable Actions
            Set appWord = GetObject(, "Word.Application")
            Set doc = appWord.Documents.Open(varFile)

        Next

        Set db = CurrentDb
        Set rec = db.OpenRecordset(DEST_TABLE)

        With rec
            .AddNew
            ' my data
            'preformat the date fields from the form
            Dim unformattedpupildob As String
            Dim formattedpupildob As Date
            unformattedpupildob = doc.FormFields("Text2").Result
            unformattedpupildob = Replace(unformattedpupildob, ".", "/")
            formattedpupildob = Format(unformattedpupildob, "dd/mm/yy")
            'And now insert the record into the table
            !pupil_name = doc.FormFields("Text1").Result
            !pupil_dob = formattedpupildob
            !pupil_yr_grp = doc.FormFields("Text3").Result
            !pupil_submitted_eth = doc.FormFields("Text4").Result
            !pupil_upn = doc.FormFields("Text5").Result
            !pupil_looked_after = doc.FormFields("Text6").Result
            !sen_pre_statement = doc.FormFields("Text7").Result
            !sen_ehcp = doc.FormFields("Text8").Result
            !cat_date_final_ehcp = doc.FormFields("Text9").Result
            !num_exclusion = doc.FormFields("Text10").Result
            !days_exclusion = doc.FormFields("Text11").Result
            !sch_name = doc.FormFields("Text12").Result
            !sch_no = doc.FormFields("Text14").Result
            !contact_name = doc.FormFields("Text13").Result
            !contact_role = doc.FormFields("Text40").Result
            !contact_email = doc.FormFields("Text31").Result
            .Update
            .Close
            MsgBox "File Processing Complete"
        End With
    End If
End With
Set objDialog = Nothing
Me.fileList.RowSource = ""
ExitSub:
    Set rec = Nothing
    Set db = Nothing
    '...and set it to nothing
    Exit Sub
ErrorHandler:
    If Err.Number <> 0 Then
        Msg = "Error # " & Str(Err.Number) & " was generated by " & Err.Source & Chr(13) & "Error Line: " & Erl() & Chr(13) & Err.Description
        MsgBox Msg, , "Error", Err.HelpFile, Err.HelpContext
    End If
    Resume ExitSub
End Sub

除了一个字段之外的所有字段都被（严重地）添加了书签，因此我可以使用它来获取字段的内容但是，我遇到了一个未命名的表单字段：

我需要导入，但我不知道如何在没有命名书签的情况下获取它的内容。

我无法修改表单，因为它由其他人控制并且分布广泛，但想知道是否有任何方法可以在不命名的情况下提取该字段的内容？

谢谢！

Answer 1

与其他对象集合一样，您可以按名称（就像对其他字段所做的那样）或按数字索引对它们进行寻址。

For i = 1 To doc.FormFields.Count
    Debug.Print i, doc.FormFields(i).Result
Next i

如果您知道其内容，这应该会为您提供该字段的索引。

然后在您的代码中使用 !the_answer = doc.FormFields(42).Result。（42 是一个例子！）

编辑：最小工作示例（运行在 Access 中）：

Public Sub TestWord()

    Dim oWord As Word.Application
    Dim oDoc As Word.Document
    Dim i As Long

    Set oWord = CreateObject("Word.Application")
    Set oDoc = oWord.Documents.Open("C:\Users\foobar\Documents\Dok1.docx")
    oWord.Visible = True

    For i = 1 To oDoc.FormFields.Count
        Debug.Print i, oDoc.FormFields(i).Name, oDoc.FormFields(i).Result
    Next i

    oDoc.Close
    oWord.Quit

End Sub

直接 window (Ctrl+g) 列出所有表单字段及其索引、名称 = 书签和默认文本。

Microsoft Access VBA - 从未命名的 Word 表单字段导入数据

Microsoft Access VBA - Importing data from an unnamed Word Form Field

ms-access

vba

ms-word

ms-access-2010