Home |
Search |
Today's Posts |
|
#1
Posted to microsoft.public.word.docmanagement
|
|||
|
|||
Email filter
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, originally posted via msnews.microsoft.com "D Wood" wrote in message ... I have a 50 page word doc converted from pdf that has 1 email address per page. Is it possible to filter/capture only email addresses at once instead of copying and pasting from each page? |
Reply |
Thread Tools | |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Works Filter | Microsoft Word Help | |||
Filter | Tables | |||
filter keys | Microsoft Word Help | |||
How do I filter a document in WORD to show only email addresses? | Microsoft Word Help | |||
Filter Key | Microsoft Word Help |