Import contect from MS Word into Access or Excel

It doesn't look easy. There doesn't seem to be enough consistence to parse accurately/

You ask for the name, the address and the email address, but in the sample there are instances of two of each of them. How would you want those dealt with?

In what way are there two columns? Do you mean snaking (newspaper-style) columns, or is the information in a table? What does the space that you mention separate?

If is gets too difficult to explain, you might try uploading a larger zipped sample here:

www.ee-stuff.com 

farm it out to a service that will re-type it for you. I am REALLY good at parsing data, and you have some real difficulties with automating a parsing of that list. Additionally, based on what you are asking for there are some questions such as: which of the two names do you want?, which of multiple emails do you want?, etc... A service will get it nicely parsed out for you quickly and accurately in a way that you can then import and use as you like.

Newspaer style. Only one email address is required.

if you are willing to use perl for this, i can give you a script to parse the word doc and write to excel.

For simplicity, this macro actually creates a table in a new document. We would need to specify a database and table to load the data directly into Access.

The resulting table can be copied and pasted into Access or Excel.

Sub Parse2()
    Dim doc1 As Document
    Dim doc2 As Document
    Dim tbl As Table
    Dim para As Paragraph
    Dim rw As Row
    Dim strAddress As String
    Dim phase As Integer
    Const phSeekingNextBlock = 0
    Const phSeekingName = 1
    Const phSeekingAddress = 2
    Const phSeekingEmail = 3
   
    Set doc1 = ActiveDocument
    Set doc2 = Documents.Add
    Set tbl = doc2.Tables.Add(doc2.Range, 1, 3)
    tbl.Cell(1, 1).Range.Text = "Name"
    tbl.Cell(1, 2).Range.Text = "Address"
    tbl.Cell(1, 3).Range.Text = "eMail"
    phase = phSeekingName
    Set rw = tbl.Rows.Add
    For Each para In doc1.Paragraphs
        Select Case phase
            Case phSeekingNextBlock
                If Len(para.Range.Text) > 1 Then
                   Set rw = tbl.Rows.Add
                   phase = phSeekingName
                End If
            Case phSeekingName
                Select Case para.Range.Words(1)
                    Case "Mr", "Mrs"
                        rw.Cells(1).Range.Text = Left$(para.Range.Text, Len(para.Range.Text) - 1)
                        phase = phSeekingAddress
                End Select
            Case phSeekingAddress
                 Select Case Trim$(para.Range.Words(1))
                    Case "Mr", "Mrs"
                    Case "H", "HF", "O", "OF", "C", "U", "UF"
                        phase = phSeekingEmail
                        rw.Cells(2).Range.Text = strAddress
                        strAddress = ""
                    Case Else
                        strAddress = strAddress & para.Range.Text
                End Select
           
            Case phSeekingEmail
                If InStr(para.Range.Text, "@") > 0 Then
                    rw.Cells(3).Range.Text = Left$(para.Range.Text, Len(para.Range.Text) - 1)
                    phase = phSeekingNextBlock
                End If
        End Select
    Next para
End Sub

GrahamSkan,

I do not use MS office products very much except for Access. Where do I put that code? Program and place? Do I create a table in Access with the columns name, address, etc? If so, what do I call the table? do the database and Word doc need to live in the same directory?

GrahamSkan:

It worked well. Now I have 3 columns. Name, full address, email address.

Is there a to break out the 2nd column into address, city, state zip? If my client wants to do mailing labels then as is, the addrees field will probably all display on one line.

If you want me to open another question for this so youget more points I will.