Need YOUR PROFESSIONAL HELP to Import Word Document in MS Access Tables

[acc2ess]

Hello,

My problem is that I receive different Word Documents as attachments

and I need to get its data into the corresponding tables in access.


I have used Text Form Fields in Word Document and could save it in text format

and imported it in ms access, but this way takes long time.

So, I need your help to have a command button that when clicked I get a

browse window that enables me to choose the Word Documents (.doc Only) I want to import.

And as I have different Word Documents, I think I will need different command

buttons for each Word Document as each would be knowing which table to

import to.

Also is there anyway to minimize the possibility of importing a Document to the wrong table?

Is it possible to make the access import all documents saved in a specific folder to a specific table? I know this is fiction

Thank YOU and I really Trust Your Abilities in Solving my problem.

And I Really Appreciate your HELP

[ADezii]

The following Code Template, using only a single Command Button, will:

1. Open a File Dialog Box which will only allow you to select either a single, or multiple, Word Documents.
2. Process each File(s) selected, and then cross reference it/them against hard coded File Names.
3. Take appropriate action (Append to proper Table) depending on the File(s) selected.
4. If a File(s) is/are not on the List, display an Error Message to the User that it/they cannot be Imported.
5. I intentionally omitted Comments in order to reduce the length of the code, but should you have any questions, please feel free to ask

'Must set a Reference to the Microsoft Office XX.X Object Library
Dim fdg As FileDialog
Dim vrtSelectedItem As Variant
Dim strSelectedFile As String
 
Set fdg = Application.FileDialog(msoFileDialogFilePicker)
 
With fdg
  .AllowMultiSelect = True         'allow multiple Files to be selected
  .Filters.Clear
  .Filters.Add "Word Documents", "*.doc"
  .FilterIndex = 1
  .InitialView = msoFileDialogViewDetails
    If .Show = -1 Then
      For Each vrtSelectedItem In .SelectedItems
        'Retrieve 'FileName only'
        strSelectedFile = Right$(vrtSelectedItem, Len(vrtSelectedItem) - InStrRev(vrtSelectedItem, "\"))
          Select Case strSelectedFile
            Case "Some File 1.doc"
              'code specific to Some File 1.doc
            Case "Some File 2.doc"
              'code specific to Some File 2.doc
            Case "Some File 3.doc"
              'code specific to Some File 3.doc
            Case "Some File 4.doc"
              'code specific to Some File 4.doc
            Case "Some File 5.doc"
              'code specific to Some File 5.doc
            Case "Some File 6.doc"
              'code specific to Some File 6.doc
            Case "Some File 7.doc"
              'code specific to Some File 7.doc
            Case "Some File 8.doc"
              'code specific to Some File 8.doc
            Case "Some File 9.doc"
              'code specific to Some File 9.doc
            Case "Some File 10.doc"
              'code specific to Some File 10.doc
            Case Else
              MsgBox "[" & strSelectedFile & "] cannot be Imported!", vbExclamation, "Import Failed"
          End Select
      Next vrtSelectedItem
    Else 'The user pressed Cancel.
    End If
End With

P.S. - Be sure to set a Reference to the Microsoft Office XX.X Object Library

[acc2ess]

Thank You ADezii,

but I have only one more thing to add which is that the file names I receive are

not static as some dates and numbers would be added to the original file name.

and I think this what causes the problem with the code

Thanks ALOT

[ADezii]

Thank You ADezii,

but I have only one more thing to add which is that the file names I receive are

not static as some dates and numbers would be added to the original file name.

and I think this what causes the problem with the code

Thanks ALOT

The code can be modified to accommodate 'Unique', 'Original' File Names. A simple example of what I am referring to would be if a Base File Name was Financial Report. The code can be modified to accept: Third Quarter Financial Report, Financial Report for the Fiscal Year 2008, Projected Financial Report for 2010, etc. Let me know if you are interested, and if you have Unique, Base/Original File Names.

[acc2ess]

Hello ADezii,

infact the name of the document should be written exactly in the code so that I

would be able to import it and if there is any change in the name of the file the

code gives an error that it can't import it it..

anyway even I made the table name with same name of the file and the import

apparently finishes successfully,th en I don't find any data entered in the table.