Home |
Search |
Today's Posts |
|
#1
Posted to microsoft.public.word.docmanagement
|
|||
|
|||
How to extract email addresses from a word document or htm web page?
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! |
#2
Posted to microsoft.public.word.docmanagement
|
|||
|
|||
How to extract email addresses from a word document or htm web page?
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! |
#3
Posted to microsoft.public.word.docmanagement
|
|||
|
|||
How to extract email addresses from a word document or htm web page?
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! |
#5
Posted to microsoft.public.word.docmanagement
|
|||
|
|||
How to extract email addresses from a word document or htm web page?
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! |
#6
Posted to microsoft.public.word.docmanagement
|
|||
|
|||
How to extract email addresses from a word document or htm web page?
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! |
#7
Posted to microsoft.public.word.docmanagement
|
|||
|
|||
How to extract email addresses from a word document or htm web page?
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! |
#8
|
|||
|
|||
Can anyone help?
This doenst work with word 2007 thank you behansi Quote:
|
#9
|
|||
|
|||
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!! Quote:
|
Reply |
Thread Tools | |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
take yet another lesson from wordperfect "reveal codes" | Microsoft Word Help | |||
Ending page numbering | Microsoft Word Help | |||
Macro for Letter Settings Help | New Users | |||
page number positioning and format | Page Layout | |||
How do I extract email addresses from a word document? | Microsoft Word Help |