[Doug Robbins - Word MVP]

Run the following macro when the document containing the email addresses is
the active document
Macro to extract all of the email addresses from a document
Sub CopyAddressesToOtherDoc()

Dim Source As Document, Target As Document, myRange As Range
Set Source = ActiveDocument
Set Target = Documents.Add
Source.Activate
Selection.HomeKey Unit:=wdStory
Selection.Find.ClearFormatting
With Selection.Find
Do While .Execute(findText:="[+0-9A-z._-]{1,}\@[A-z.]{1,}", _
MatchWildcards:=True, Wrap:=wdFindStop, Forward:=True) = True
Set myRange = Selection.Range
Target.Range.InsertAfter myRange & vbCr
Loop
End With
Selection.HomeKey Unit:=wdStory
Target.Activate
End Sub

--
Hope this helps.

Please reply to the newsgroup unless you wish to avail yourself of my
services on a paid consulting basis.

Doug Robbins - Word MVP

wrote in message
oups.com...
Hello,
I'm in trouble because I'm trying to find the way to extract some
e-mail addresses that are in a .doc document I have that I also have in
txt format or .htm format
The word document is several pages and he has a lot of e-mail addresses
that I cannot just copy and past with the search tool because they are
too much.
How do I do to extract all the email addresses from the word document?
Thanks!

[Graham Mayor]

Doug

I suspect that your macro may run into the same language issues that the
search string is having problems with i.e. the escape character \ before the
@


--

Graham Mayor - Word MVP

My web site www.gmayor.com
Word MVP web site http://word.mvps.org


Doug Robbins - Word MVP wrote:
Run the following macro when the document containing the email
addresses is the active document
Macro to extract all of the email addresses from a document
Sub CopyAddressesToOtherDoc()

Dim Source As Document, Target As Document, myRange As Range
Set Source = ActiveDocument
Set Target = Documents.Add
Source.Activate
Selection.HomeKey Unit:=wdStory
Selection.Find.ClearFormatting
With Selection.Find
Do While .Execute(findText:="[+0-9A-z._-]{1,}\@[A-z.]{1,}", _
MatchWildcards:=True, Wrap:=wdFindStop, Forward:=True) = True
Set myRange = Selection.Range
Target.Range.InsertAfter myRange & vbCr
Loop
End With
Selection.HomeKey Unit:=wdStory
Target.Activate
End Sub


wrote in message
oups.com...
Hello,
I'm in trouble because I'm trying to find the way to extract some
e-mail addresses that are in a .doc document I have that I also have
in txt format or .htm format
The word document is several pages and he has a lot of e-mail
addresses that I cannot just copy and past with the search tool
because they are too much.
How do I do to extract all the email addresses from the word
document? Thanks!

[[email protected]]

It doesn't work...
How can I know what is the italian thing for "\"?
You work for Microsoft and you know anyone of your colleagues in Italy
that can pass you this information?
Thanks!

Graham Mayor ha scritto:

Doug

I suspect that your macro may run into the same language issues that the
search string is having problems with i.e. the escape character \ before the
@


--

Graham Mayor - Word MVP

My web site www.gmayor.com
Word MVP web site http://word.mvps.org


Doug Robbins - Word MVP wrote:
Run the following macro when the document containing the email
addresses is the active document
Macro to extract all of the email addresses from a document
Sub CopyAddressesToOtherDoc()

Dim Source As Document, Target As Document, myRange As Range
Set Source = ActiveDocument
Set Target = Documents.Add
Source.Activate
Selection.HomeKey Unit:=wdStory
Selection.Find.ClearFormatting
With Selection.Find
Do While .Execute(findText:="[+0-9A-z._-]{1,}\@[A-z.]{1,}", _
MatchWildcards:=True, Wrap:=wdFindStop, Forward:=True) = True
Set myRange = Selection.Range
Target.Range.InsertAfter myRange & vbCr
Loop
End With
Selection.HomeKey Unit:=wdStory
Target.Activate
End Sub


wrote in message
oups.com...
Hello,
I'm in trouble because I'm trying to find the way to extract some
e-mail addresses that are in a .doc document I have that I also have
in txt format or .htm format
The word document is several pages and he has a lot of e-mail
addresses that I cannot just copy and past with the search tool
because they are too much.
How do I do to extract all the email addresses from the word
document? Thanks!

[Graham Mayor]

I don't work for Microsoft - nor does anyone else answering queries here.
This is a user peer group. You have the answer at your fingertips - the
commands are explained in Word Help. The principloes of wildcard searches
are explained at http://www.gmayor.com/replace_using_wildcards.htm

--

Graham Mayor - Word MVP

My web site www.gmayor.com
Word MVP web site http://word.mvps.org


wrote:
It doesn't work...
How can I know what is the Italian thing for "\"?
You work for Microsoft and you know anyone of your colleagues in Italy
that can pass you this information?
Thanks!

Graham Mayor ha scritto:

Doug

I suspect that your macro may run into the same language issues that
the search string is having problems with i.e. the escape character
\ before the @


--

Graham Mayor - Word MVP

My web site www.gmayor.com
Word MVP web site http://word.mvps.org


Doug Robbins - Word MVP wrote:
Run the following macro when the document containing the email
addresses is the active document
Macro to extract all of the email addresses from a document
Sub CopyAddressesToOtherDoc()

Dim Source As Document, Target As Document, myRange As Range
Set Source = ActiveDocument
Set Target = Documents.Add
Source.Activate
Selection.HomeKey Unit:=wdStory
Selection.Find.ClearFormatting
With Selection.Find
Do While .Execute(findText:="[+0-9A-z._-]{1,}\@[A-z.]{1,}", _
MatchWildcards:=True, Wrap:=wdFindStop, Forward:=True) = True
Set myRange = Selection.Range
Target.Range.InsertAfter myRange & vbCr
Loop
End With
Selection.HomeKey Unit:=wdStory
Target.Activate
End Sub


wrote in message
oups.com...
Hello,
I'm in trouble because I'm trying to find the way to extract some
e-mail addresses that are in a .doc document I have that I also
have in txt format or .htm format
The word document is several pages and he has a lot of e-mail
addresses that I cannot just copy and past with the search tool
because they are too much.
How do I do to extract all the email addresses from the word
document? Thanks!

[Graham Mayor]

My next step would have been to direct you to the Italian Word
newsgroup -but I see that you have already found that one

--

Graham Mayor - Word MVP

My web site www.gmayor.com
Word MVP web site http://word.mvps.org


Graham Mayor wrote:
I don't work for Microsoft - nor does anyone else answering queries
here. This is a user peer group. You have the answer at your
fingertips - the commands are explained in Word Help. The principloes
of wildcard searches are explained at
http://www.gmayor.com/replace_using_wildcards.htm

wrote:
It doesn't work...
How can I know what is the Italian thing for "\"?
You work for Microsoft and you know anyone of your colleagues in
Italy that can pass you this information?
Thanks!

Graham Mayor ha scritto:

Doug

I suspect that your macro may run into the same language issues that
the search string is having problems with i.e. the escape character
\ before the @


--

Graham Mayor - Word MVP

My web site www.gmayor.com
Word MVP web site http://word.mvps.org


Doug Robbins - Word MVP wrote:
Run the following macro when the document containing the email
addresses is the active document
Macro to extract all of the email addresses from a document
Sub CopyAddressesToOtherDoc()

Dim Source As Document, Target As Document, myRange As Range
Set Source = ActiveDocument
Set Target = Documents.Add
Source.Activate
Selection.HomeKey Unit:=wdStory
Selection.Find.ClearFormatting
With Selection.Find
Do While .Execute(findText:="[+0-9A-z._-]{1,}\@[A-z.]{1,}", _
MatchWildcards:=True, Wrap:=wdFindStop, Forward:=True) =
True Set myRange = Selection.Range
Target.Range.InsertAfter myRange & vbCr
Loop
End With
Selection.HomeKey Unit:=wdStory
Target.Activate
End Sub


wrote in message
oups.com...
Hello,
I'm in trouble because I'm trying to find the way to extract some
e-mail addresses that are in a .doc document I have that I also
have in txt format or .htm format
The word document is several pages and he has a lot of e-mail
addresses that I cannot just copy and past with the search tool
because they are too much.
How do I do to extract all the email addresses from the word
document? Thanks!

[[email protected]]

Thanks. On the italian NG someone gave me the right macro to have all
the e-mails in a new document.
The problem is that the macro take all the "linked e-mails" that have
an hyper-link but the e-mail addresses in my document are all in simple
text, without link.
How do I transform these addresses in hyper link addresses?
Thanks!

Graham Mayor ha scritto:

My next step would have been to direct you to the Italian Word
newsgroup -but I see that you have already found that one

--

Graham Mayor - Word MVP

My web site www.gmayor.com
Word MVP web site http://word.mvps.org


Graham Mayor wrote:
I don't work for Microsoft - nor does anyone else answering queries
here. This is a user peer group. You have the answer at your
fingertips - the commands are explained in Word Help. The principloes
of wildcard searches are explained at
http://www.gmayor.com/replace_using_wildcards.htm

wrote:
It doesn't work...
How can I know what is the Italian thing for "\"?
You work for Microsoft and you know anyone of your colleagues in
Italy that can pass you this information?
Thanks!

Graham Mayor ha scritto:

Doug

I suspect that your macro may run into the same language issues that
the search string is having problems with i.e. the escape character
\ before the @


--

Graham Mayor - Word MVP

My web site www.gmayor.com
Word MVP web site http://word.mvps.org


Doug Robbins - Word MVP wrote:
Run the following macro when the document containing the email
addresses is the active document
Macro to extract all of the email addresses from a document
Sub CopyAddressesToOtherDoc()

Dim Source As Document, Target As Document, myRange As Range
Set Source = ActiveDocument
Set Target = Documents.Add
Source.Activate
Selection.HomeKey Unit:=wdStory
Selection.Find.ClearFormatting
With Selection.Find
Do While .Execute(findText:="[+0-9A-z._-]{1,}\@[A-z.]{1,}", _
MatchWildcards:=True, Wrap:=wdFindStop, Forward:=True) =
True Set myRange = Selection.Range
Target.Range.InsertAfter myRange & vbCr
Loop
End With
Selection.HomeKey Unit:=wdStory
Target.Activate
End Sub


wrote in message
oups.com...
Hello,
I'm in trouble because I'm trying to find the way to extract some
e-mail addresses that are in a .doc document I have that I also
have in txt format or .htm format
The word document is several pages and he has a lot of e-mail
addresses that I cannot just copy and past with the search tool
because they are too much.
How do I do to extract all the email addresses from the word
document? Thanks!

[Graham Mayor]

I haved already told you repeatedly how to extract email addresses from a
document. This string works fine for English versions of Word. I am
hampered in modifying that for Italian Word by not knowing what the correct
escape character is for the Italian version. Ask your Italian correspondents
in the other group to fix the search string so that it works in your version
i.e. what needs to replace the '\' character.

--

Graham Mayor - Word MVP

My web site www.gmayor.com
Word MVP web site http://word.mvps.org


wrote:
Thanks. On the italian NG someone gave me the right macro to have all
the e-mails in a new document.
The problem is that the macro take all the "linked e-mails" that have
an hyper-link but the e-mail addresses in my document are all in
simple text, without link.
How do I transform these addresses in hyper link addresses?
Thanks!

Graham Mayor ha scritto:

My next step would have been to direct you to the Italian Word
newsgroup -but I see that you have already found that one

--

Graham Mayor - Word MVP

My web site www.gmayor.com
Word MVP web site http://word.mvps.org


Graham Mayor wrote:
I don't work for Microsoft - nor does anyone else answering queries
here. This is a user peer group. You have the answer at your
fingertips - the commands are explained in Word Help. The
principloes of wildcard searches are explained at
http://www.gmayor.com/replace_using_wildcards.htm

wrote:
It doesn't work...
How can I know what is the Italian thing for "\"?
You work for Microsoft and you know anyone of your colleagues in
Italy that can pass you this information?
Thanks!

Graham Mayor ha scritto:

Doug

I suspect that your macro may run into the same language issues
that the search string is having problems with i.e. the escape
character \ before the @


--

Graham Mayor - Word MVP

My web site www.gmayor.com
Word MVP web site http://word.mvps.org


Doug Robbins - Word MVP wrote:
Run the following macro when the document containing the email
addresses is the active document
Macro to extract all of the email addresses from a document
Sub CopyAddressesToOtherDoc()

Dim Source As Document, Target As Document, myRange As Range
Set Source = ActiveDocument
Set Target = Documents.Add
Source.Activate
Selection.HomeKey Unit:=wdStory
Selection.Find.ClearFormatting
With Selection.Find
Do While .Execute(findText:="[+0-9A-z._-]{1,}\@[A-z.]{1,}", _
MatchWildcards:=True, Wrap:=wdFindStop, Forward:=True) =
True Set myRange = Selection.Range
Target.Range.InsertAfter myRange & vbCr
Loop
End With
Selection.HomeKey Unit:=wdStory
Target.Activate
End Sub


wrote in message
oups.com...
Hello,
I'm in trouble because I'm trying to find the way to extract
some e-mail addresses that are in a .doc document I have that I
also have in txt format or .htm format
The word document is several pages and he has a lot of e-mail
addresses that I cannot just copy and past with the search tool
because they are too much.
How do I do to extract all the email addresses from the word
document? Thanks!

[behans]

Can anyone help?
This doenst work with word 2007
thank you
behansi

Originally Posted by Doug Robbins - Word MVP

Run the following macro when the document containing the email addresses is
the active document
Macro to extract all of the email addresses from a document
Sub CopyAddressesToOtherDoc()

Dim Source As Document, Target As Document, myRange As Range
Set Source = ActiveDocument
Set Target = Documents.Add
Source.Activate
Selection.HomeKey Unit:=wdStory
Selection.Find.ClearFormatting
With Selection.Find
Do While .Execute(findText:="[+0-9A-z._-]{1,}\@[A-z.]{1,}", _
MatchWildcards:=True, Wrap:=wdFindStop, Forward:=True) = True
Set myRange = Selection.Range
Target.Range.InsertAfter myRange & vbCr
Loop
End With
Selection.HomeKey Unit:=wdStory
Target.Activate
End Sub

--
Hope this helps.

Please reply to the newsgroup unless you wish to avail yourself of my
services on a paid consulting basis.

Doug Robbins - Word MVP

wrote in message
oups.com...
Hello,
I'm in trouble because I'm trying to find the way to extract some
e-mail addresses that are in a .doc document I have that I also have in
txt format or .htm format
The word document is several pages and he has a lot of e-mail addresses
that I cannot just copy and past with the search tool because they are
too much.
How do I do to extract all the email addresses from the word document?
Thanks!

[Worderer]

I realise this Thread is very old but i'm using this macro to date and it's V.usefull.

Only problem is, It seems to have an issue with some emails that contain a hyphen "-"

Is there anything that can be done about this?

Many thanks!!

Originally Posted by Doug Robbins - Word MVP

Run the following macro when the document containing the email addresses is
the active document
Macro to extract all of the email addresses from a document
Sub CopyAddressesToOtherDoc()

Dim Source As Document, Target As Document, myRange As Range
Set Source = ActiveDocument
Set Target = Documents.Add
Source.Activate
Selection.HomeKey Unit:=wdStory
Selection.Find.ClearFormatting
With Selection.Find
Do While .Execute(findText:="[+0-9A-z._-]{1,}\@[A-z.]{1,}", _
MatchWildcards:=True, Wrap:=wdFindStop, Forward:=True) = True
Set myRange = Selection.Range
Target.Range.InsertAfter myRange & vbCr
Loop
End With
Selection.HomeKey Unit:=wdStory
Target.Activate
End Sub

--
Hope this helps.

Please reply to the newsgroup unless you wish to avail yourself of my
services on a paid consulting basis.

Doug Robbins - Word MVP
[/i][/color]