Help in writing VB program to read 1000 word documents and extract required info

[Farooqui]

Hi,

I need help in writing a VB6 program to read 1000 word documents and extract my required information into a .dbf file.

All word documents are having different information in a tabular form but the following fields are common in all of them:

Name, Address, City, Country, Telephone, Mobile, Fax, Email, Title, Remarks

I want to extract these fields with their information and append them into my master Address.dbf file

Thanks & Best Regards,

Farooqui

[jamesd0142]

I'm new to this vb stuff myself, although i am sure it isnt possible to read data from word files.

I could be wrong however.

[BlackMustard]

Hi,

I need help in writing a VB6 program to read 1000 word documents and extract my required information into a .dbf file.

All word documents are having different information in a tabular form but the following fields are common in all of them:

Name, Address, City, Country, Telephone, Mobile, Fax, Email, Title, Remarks

I want to extract these fields with their information and append them into my master Address.dbf file

Thanks & Best Regards,

Farooqui

i know you're writing in vb6 and this is vba, but it can probably help you along the way.

to handle word files, you will need to import the reference library "Microsoft Word 11.0 Object Library". you will also need to declare a word application.

Dim appWord As New Word.Application

to loop through the files, use a file system object to find the file names of e.g. all word documents in a user-specified folder. then open them using

appWord.visible = false
appWord.Documents.Open(strFullFilePath)

if the table has the same structure in every document, and also the same orientation in relation to other tables (first or third table in each document, for example...), you can use the following code to access the data in the tables and place it in an array. i will use the fields Name and Address and assume they are located in the first and second columns of the first table in each document.

Dim index,intNameCol,intAddressCol,row As Integer
Dim strName As String
 
' Given that the info for each person is located in the first column of the first table in each document
index = 1 ' table index within the document
intNameColl = 1
intAddressColl = 2
 
' Get the table from word
Dim tblItems As Word.Table
Set tblItems = appWord.ActiveDocument.Tables(index)
 
' Define a multidimensional array to keep the data. Do this outside of the loop to get word documents if you wish to get all the data before putting it in the database.
Dim arrData() As String
 
' Loop through the table to get all names
For row = 1 To tblItems.Rows.Count
    ReDim Preserve arrData(1 To 2, 1 To UBound(arrData, 2)) ' Adds another row to the array, no matter what size it is currently.
 
    arrData(1,row) = tblItems.Cell(row,intNameCol) ' gets Name
    arrData(2,row) = tblItems.Cell(row,intAddressCol) ' gets Address
Next

as to putting everything in the database, i am not familiar with the database format you're using, and can therefore not help you with that part.

[Farooqui]

i know you're writing in vb6 and this is vba, but it can probably help you along the way.

to handle word files, you will need to import the reference library "Microsoft Word 11.0 Object Library". you will also need to declare a word application.

Dim appWord As New Word.Application

to loop through the files, use a file system object to find the file names of e.g. all word documents in a user-specified folder. then open them using

appWord.visible = false
appWord.Documents.Open(strFullFilePath)

if the table has the same structure in every document, and also the same orientation in relation to other tables (first or third table in each document, for example...), you can use the following code to access the data in the tables and place it in an array. i will use the fields Name and Address and assume they are located in the first and second columns of the first table in each document.

Dim index,intNameCol,intAddressCol,row As Integer
Dim strName As String
 
' Given that the info for each person is located in the first column of the first table in each document
index = 1 ' table index within the document
intNameColl = 1
intAddressColl = 2
 
' Get the table from word
Dim tblItems As Word.Table
Set tblItems = appWord.ActiveDocument.Tables(index)
 
' Define a multidimensional array to keep the data. Do this outside of the loop to get word documents if you wish to get all the data before putting it in the database.
Dim arrData() As String
 
' Loop through the table to get all names
For row = 1 To tblItems.Rows.Count
    ReDim Preserve arrData(1 To 2, 1 To UBound(arrData, 2)) ' Adds another row to the array, no matter what size it is currently.
 
    arrData(1,row) = tblItems.Cell(row,intNameCol) ' gets Name
    arrData(2,row) = tblItems.Cell(row,intAddressCol) ' gets Address
Next

as to putting everything in the database, i am not familiar with the database format you're using, and can therefore not help you with that part.

Thankyou very much for your help. Its Ok, I will switch from VB6 to VBA that doesn't matter. I would really appreciate if you could guide me for the second part as well. My database is in DBF and its format is:
Name String 50
Address String 75
Email String 50
......

One more query I would like to know that in some of my word documents, the sequence is litthe different means I can't use array to get the exact rows location, means Name is sometimes at row 4 and Address is at row 1. How should I handle this?

Thanks once again
& Best Regards

Farooqui.

[QVeen72]

Hi,

How do u come to know that name is in 4th or 5th row..? does it have any Prefix Chars...? (say Mr. Ms....? Name..) if yes, then u can check for that Specific Word and take accordingly..

REgards
Veena