Question

我正在尝试为Access 2013制作VBA脚本，这将有助于从文件夹处理Word 2013表单，将这些Word 2013表单文件附加到相关记录条目，并附加来自相同名称的同一文件夹的pdf文件。由于我不是程序员，每次尝试都会引导我下一个错误。任何人都可以帮助它的工作。感谢。

此代码执行从文件夹中的.docx文件收集数据的任务。然后不要将文件保存在文件夹中我想通过适当的记录将它们保存在DB中。假设docx和pdf的文件名相同，如何添加将pdf和docx文件附加到相关记录的代码？我需要一个线索，如何将其插入相关记录或开始新的脚本部分。什么命令可以使用以及在什么地方开始新的脚本部分？

Private Sub ImportFormdata_Click()
  Dim appWord As Word.Application
  Dim doc As Word.Document
  Dim SourceFolderPath As String
  Dim FormFile As String
  Dim strName As String
  Dim rst As DAO.Recordset

  SourceFolderPath = CurrentProject.Path & "\"
  FormFile = Dir(SourceFolderPath & "*.docx", vbNormal)

  Do While FormFile <> ""
  Set appWord = CreateObject("Word.Application")
  strName = SourceFolderPath & FormFile
  Set doc = appWord.Documents.Open(strName)
  appWord.Visible = False
  Set rst = CurrentDb.OpenRecordset("FormData")
  With rst
     .AddNew
     ![Question1] = doc.FormFields("Q1").result
     ![Question2] = doc.FormFields("Q2").result
     ![Question3] = doc.FormFields("Q3").result
     ![File name] = FormFile
     .Update
     .Close
  End With
  doc.Close
  appWord.Quit
  FormFile = Dir
  Loop

MsgBox "Forms imported!"
End Sub

通过VBA将Word 2013表单中的信息导入Access 2013

0 个答案: