How to find data in MS Word Document and extract it to a txt/csv f

[Arun Kumar]

Hi,

I have a set of around 1000 word documents and i want to extract email
addresses from all these documents and keep all of them in a txt/csv file. I
am able to do find and replace in powershell (by using
selection.find.execute() )however not sure how to just find something
matching "@" and keep it in txt file. Please help !!!

With Regards,
Arun

[Peter Schneider]

Hi!

Which Word version do you use?

greetings, Peter Schneider

"Arun Kumar" <Arun...@discussions.microsoft.com> schrieb im Newsbeitrag
news:ABB64A14-8461-45CD...@microsoft.com...

[Uwe Ziegenhagen]

Arun Kumar schrieb:

I would try to find a way to convert all to TXT, combine them in one
file and search through this single file.

You can use regular expressions in Powershell to get all the email by
using a string from the web (Google will help)

Uwe

[Sean Kearney]

Is that because the "@" is a special character? I seem to remember dealing
with that with a funky password on a SAN and DOS days. I think you had to
put a Backtick --- THIS THING ````` ------ Before the special character for
the command line to ignore it and treat it as text.

Anybody know if that works in Powershell or what the equivalent to the
Backtick is in Powershell?

[Robert Robelo]

Try this filter...

filter Get-EmailAddressFromWord {
begin {
$wd = New-Object -ComObject word.application
[regex]$RegexEmail = '[\w-]+(?:\.[\w-]+)*@[\w-]+(?:\.[\w-]+)*'
}
process {
$doc = $wd.Documents.Open($_.Fullname)
$doc.Select()
$text = $wd.Selection.Text
$RegexEmail.Matches($text) | ForEach-Object {$_.Value}
$doc.Close([ref]$true)
}
end {$wd.Quit()}
}

# pipe your docs to the filter and write the output to a file
Get-ChildItem ~\Documents *.doc | Get-EmailAddressFromWord > Emails.txt

--
Robert

[Robert Robelo]

One correction.

# change this line
$doc.Close([ref]$true)

# to...
$doc.Close([ref]$false)

--
Robert