Try something like this:

oWord = Createobject("Word.Application")
with oWord
.documents.open(file_name)
.Selection.HomeKey(5)
.Selection.EndKey(6,1)
.Selection.Copy
endwith
lccontents=_cliptext
* then you could work with lccontents string as needed
* I believe, it will be not only commas, but also chr(13)/chr(10), spaces, tabs or others.
....



>Hi Friends!
>
>Hi have a trouble and to be sincere, I don´t have any idea how to solve it. Somebody at the company, has a big bank of customers and contacts mail adresses. She had the great idea of write all the adresses in Word (Around 200 pages), with the format:
>
>Cotusa@prodigy.net.mx,viverdi@infosel.net.mx
>
>So, the only mark is a ",". What I need to do is separate all the adresses and write it on a table. Is it possible from Word or I need to export the data to another place?
>
>Thanks in advance!