Thread: Parsing a Address Book into Excel

Hi,

I have an old address book in Word. I would like to take this and automaticaly add it to an exel spread sheet so i can use it for mail merges etc...

What is the easiest way to do this?


In the file the names are in UPPERCASE (the comma is sometimes a period due to the OCR).
Depending on the listing there are either one or two email address. Same goes for Phone Number.


-------------------------
Format of the File:

LAST, FIRST NAME
613 N Street
Los Angeles. CA 41021-4044
402-944-1494
email@gmail.com
Optional2@aol.com
LAST, FIRST NAME
615 N Street
Los Angeles. CA 41021-4044
402-944-1494
402-944-1494
email@gmail.com

sub snb()
  sn=split(activedocument.content,vbcr)

  for j=0 to ubound(sn)-1
    if instr(sn(j),"@")>0 and instr(sn(j+1),"@")=0 then sn(j)=sn(j)& "~"
  next
  sn=split(join(sn,"|"),"~")

  with Getobject("E:\OF\example.xls")
     .visible=true
     .sheets(1).cells(1).resize(Ubound(sn)+1)=application.transpose(sn)
  end with
end sub

Thanks for your help.

I placed this Macro into the macro editor in word and clicked run an error popped up.


I am a beginner... So i thank you for your patients!

Link to txt file: http://dl.dropbox.com/u/9725063/Test.txt