Robert wrote:

The document has media listed in it in the following types of format,

Name
Address
Telephone
Fax
Name
Email
Email
Information

and I want to be able to export only the email addresses from this
large file.....

"Chris Premo" wrote:

Robert wrote:

Hi,
I have a large document, and it has email addresses, addresses,
ect in it, and I want to be able to filter all the information
out of it but the email addresses, how can I do this in Excel or
Word?


By "filter all the information out of it" do you mean export the
data??

If you mean export it out, that will depend on how the data is
arranged/stated in the source document. I do this sort of
extraction using excel from a Txt file that I generate from my
Novell servers.

Can you post some €œgeneric€� examples of how the document is
arranged? That will give us a better idea as to how to proceed.


--




Workbooks.OpenText Filename:=strPath & "\Config.txt", Origin:=437, _
StartRow:=1, DataType:=xlDelimited,
TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=False,
Comma:=False _
, Space:=False, Other:=False, FieldInfo:=Array(1, 1), _
TrailingMinusNumbers:=True



Cells.Select
Range("A1").Activate
ActiveWorkbook.Worksheets("Config").Sort.SortField s.Clear
ActiveWorkbook.Worksheets("Config").Sort.SortField s.Add
Key:=Range("B1"), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortTextAsNumbers
With ActiveWorkbook.Worksheets("Config").Sort
.SetRange Range("A1:X10000")
.Header = xlNo
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With



TextStr = "Email"
Call FindText
ActRow = ActiveCell.Row - 1
Rows("1:" & ActRow).Select
Selection.Delete Shift:=xlUp

Range("A1").Select



Fax


Sub FindText()

Selection.Find(What:=TextStr, After:=ActiveCell, LookIn:=xlFormulas
_
, LookAt:=xlPart, SearchOrder:=xlByRows,
SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate

End Sub



--