Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.word.docmanagement
|
|||
|
|||
copying email addresses to your address book?
Once all the email addresses are highlighted in blue as a hyperlink in a word
document, how can you then automatically add those email addresses to your address book, again without having to manually click each one or cutting & pasting each one manaully. |
#2
Posted to microsoft.public.word.docmanagement
|
|||
|
|||
copying email addresses to your address book?
The following macro can be used to extract all of the email addresses from a
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 Application.ScreenUpdating = False 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 "Rosie" wrote in message ... Once all the email addresses are highlighted in blue as a hyperlink in a word document, how can you then automatically add those email addresses to your address book, again without having to manually click each one or cutting & pasting each one manaully. |
Reply |
Thread Tools | |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Email addresses on DOC file to import to OE6.0 Address Book | Microsoft Word Help | |||
old e-mail addresses that are NOT in address book bu | Microsoft Word Help | |||
Getting Names and Addresses into Address Book / Contact List | Microsoft Word Help | |||
How do I use address book for importing addresses into word | Microsoft Word Help | |||
add list of email addresses to address book | New Users |