将 MS Word 表单字段导入 MS Access

Question

我已经使用 MS Word 和一大堆表单字段创建了一个申请表，并且我有一个 Access 数据库，可以从此 Word 文档导入我需要的所有数据，这要归功于：

http://msdn.microsoft.com/en-us/library/aa155434%28office.10% 29.aspx

现在一切工作正常（我什至设法将其导入到多个表中！），但上述问题是我必须一次手动输入每个文件的名称。 ..如果这只是导入申请表的情况，那很好……但是我有很多东西放在需要输入数据库的文件夹中。

然后我发现了这个：

如何显示“打开文件” Access 2007 VBA 中的对话框？

我尝试过调整和合并两者以使其工作...但正如您可以猜到的那样，无济于事...（当我非常 我是一个 Access 新手！）

我想要做的是能够使用“打开/选择文件”对话框将一堆 Word 文档/表单字段导入到 MS Access 中...我已经得到了有效的方法，但是我想让合作变得更容易！

谢谢大家 杰克，

##### Codes I been using

Option Compare Database

Option Explicit

Private Sub cmdFileDialog_Click()

' This requires a reference to the Microsoft Office 11.0 Object Library.

Dim fDialog As Office.FileDialog
Dim varFile As Variant

Dim appWord As Word.Application
Dim doc As Word.Document
' Dim cnn As New ADODB.Connection
' Dim rst As New ADODB.Recordset
Dim strDocName As String
Dim blnQuitWord As Boolean

' Clear the list box contents.
' Me.FileList.RowSource = ""

' Set up the File dialog box.
Set fDialog = Application.FileDialog(msoFileDialogFilePicker)
With fDialog
' Allow the user to make multiple selections in the dialog box.
.AllowMultiSelect = True

' Set the title of the dialog box.
.Title = "Select One or More Files"

' Clear out the current filters, and then add your own.
.Filters.Clear
.Filters.Add "Microsoft Word", "*.DOC"
.Filters.Add "All Files", "*.*"

' Show the dialog box. If the .Show method returns True, the
' user picked at least one file. If the .Show method returns
' False, the user clicked Cancel.
If .Show = True Then
' Loop through each file that is selected and then add it to the list box.
For Each varFile In .SelectedItems
' Me.FileList.AddItem varFile

Set appWord = GetObject(, "Word.Application")
Set doc = appWord.Documents.Open(varFile)

' cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
'     "Data Source=M:\Medical\GPAppraisal\Contacts & Databases\" & _
'     "AppForm.mdb;"
' rst.Open "tbl_Applicants", cnn, _
'     adOpenKeyset, adLockOptimistic

' With rst
.addnew
!Title = doc.FormFields("wTitle").Result
!FirstName = doc.FormFields("wFirstName").Result
!LastName = doc.FormFields("wLastName").Result
!Address1 = doc.FormFields("wAddress1").Result
!Address2 = doc.FormFields("wAddress2").Result
!Address3 = doc.FormFields("wAddress3").Result
!City = doc.FormFields("wCity").Result
!PostCode = doc.FormFields("wPostCode").Result
!Email = doc.FormFields("wEmail").Result
!Phone1 = doc.FormFields("wPhone1").Result
!Phone2 = doc.FormFields("wPhone2").Result
!LM = doc.FormFields("wLM").Result
!LMAddress1 = doc.FormFields("wLMAddress1").Result
!LMAddress2 = doc.FormFields("wLMAddress2").Result
!LMAddress3 = doc.FormFields("wLMAddress3").Result
!LMCity = doc.FormFields("wLMCity").Result
!LMPostCode = doc.FormFields("wLMPostCode").Result
!LMEmail = doc.FormFields("wLMEmail").Result
!LMPhone = doc.FormFields("wLMPhone").Result
!LMOK = doc.FormFields("wLMOK").Result
!Probity = doc.FormFields("wProbity").Result
!Practising = doc.FormFields("wPractising").Result
!Signature = doc.FormFields("wSignature").Result
!AppDate = doc.FormFields("wAppDate").Result
!e2011012028 = doc.FormFields("w2011012028").Result
!e2011021725 = doc.FormFields("w2011021725").Result
!e2011030311 = doc.FormFields("w2011030311").Result
!e2011031625 = doc.FormFields("w2011031625").Result
!e20110203 = doc.FormFields("w20110203").Result
!e20110211 = doc.FormFields("w20110211").Result
!e20110322 = doc.FormFields("w20110322").Result
!e20110330 = doc.FormFields("w20110330").Result
.Update
.Close
End With
doc.Close
If blnQuitWord Then appWord.Quit
cnn.Close
MsgBox "Application Imported!"

Cleanup:
' Set rst = Nothing
' Set cnn = Nothing
Set doc = Nothing
Set appWord = Nothing

Next
Else
   MsgBox "You clicked Cancel in the file dialog box."
End If
End With
End Sub

#

我试图搞乱我。表和我！表单和.add 等等 - 显然我在这里是一个完全的新手！

我想要的是能够将 Word 文档中的表单字段中的数据导入到 MS Access 表中（我已经成功地使用上面原始帖子中的第一个 URL 做到了这一点）；通过从“打开/选择”对话框中选择 Word 文档，而不是手动输入每个 Word 文档的名称。

如果这听起来很明显或简单，我很抱歉 - 无论如何，访问不是我的强项！

Answer 1

在开始之前，我不明白为什么代码示例中有这么多未注释的行（lines beginnig mit '）。我认为这些行中的大多数通常不会被注释掉并且成为工作代码的一部分。或者是否有 Stack Overflow 编辑器的工件？

我看到一些问题，可能会指导您找到解决方案。

1）当您使用时，

With fDialog

让其“打开”直到代码结束（甚至在其间使用第二个With）。我建议您在不再需要它后立即设置相应的“结束方式”。请记住（或注意）： The

With fDialog
   [... something]
   ' Set the title of the dialog box.
   .Title = "Select One or More Files"

实际上只是一个简写

fDialog.Title

（即“裸”。意味着它必须附加到 With 中的对象），因此您可以完全取消“With”。在您的示例中，我会在之前设置“End With”

If .Show = True Then

，然后使用

If fDialog.Show = True Then

2) 我会

Set appWord = GetObject(, "Word.Application")

在 For Each 循环之外设置（不要忘记在循环之外设置 Set appWord = Nothing） 。请记住，使用 GetObject 您需要一个正在运行的 Word 实例，否则您可能想要使用

Set appWord = CreateObject("Word.Application")

或同时拥有它，请尝试获取 Word 对象，如果它不可用（即 Err.Number = 429），则创建一个新的一。

On Error Resume Next
Set appWord = GetObject(, "Word.Application")

If Err.Number = 429 Then
    Set appWord = CreateObject("Word.Application")
End If
On Error GoTo 0

3) 在工作时或至少在使用自动化进行开发时，我总是会进行设置，

objword.Visible = True

以便您可以在 Word 中看到错误消息或其他问题。

HTH 了解后续步骤（如果您再遇到此问题）
安德烈亚斯