[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!