[ snake_master @ 23.03.2009. 17:31 ] @

Imam jedan veliki word dokument i potrebno mi je da kopiram sadržaj svih email adresa u drugi dokument, pa se pitam da li postoji neki word macro koji to može da uradi?

Bilo bi mi od velike pomoći ako bi to moglo da se uradi.

[ 3okc @ 23.03.2009. 20:21 ] @
da vidimo šta kažu u HELP-u:

Citat:
Hyperlinks Property

Returns a Hyperlinks collection that represents all the hyperlinks in the specified document, range, or selection. Read-only.

...

This example displays the name of every hyperlink in the active document that includes the word "Microsoft" in its address.

Code:
For Each aHyperlink In ActiveDocument.Hyperlinks
    If InStr(LCase(aHyperlink.Address), "microsoft") <> 0 Then
        MsgBox aHyperlink.Name
    End If
Next aHyperlink


eto primera..

a možeš i da snimiš kao html i onda otvoriš u nekom naprednom editoru i "očistiš" sve tagove osim <A>, npr sa ReplaceAll.
[ snake_master @ 26.03.2009. 12:08 ] @

Ne znam da li sam te dobro razumeo i da li sam dobro objasnio.
Ja imam "čist" text bez hyperlinkova, probao sam sa ovim primerom koji si mi dao ali word ne vidi gde je adresa u čistom tekstu.

Da li postoji neki VBA kod koji bi mogao da se napiše, da word kopira u clipboard sav text gde se nalazi "@" i da ga onda pastujem u drugi word dokument?
[ 3okc @ 26.03.2009. 12:34 ] @
Ako imaš "čist tekst" onda to nije "word dokument", to je barem jasno.

Može se pisati makro, naravno, čak sam siguran da bih ga relativno brzo napisao, ali, možeš da završiš i bez makroa: otvori taj tekstualni fajl i zameni svaki razmak sa novim redom (u nekom editoru). Tako će ti svaka pojedina reč stajati u novom redu, a samim tim i svi mejlovi. Kada imaš to onda je lako napisati f-ju u Excelu kojom ćeš filtrirati samo one redove koji sadrže '@'.
[ snake_master @ 26.03.2009. 12:51 ] @

Izvini moja greška, u stvari to je text koji je kopiran sa web stranica kao čist text prebačen u word dokument, koji pored email adresa sadrži i druge podatke.

Ako sam te dobro razumeo to bi trebalo ovako da izgleda:

===================
Iz ovoga:

Perica Perovic je dobar čovek. [email protected]

u ovo:

Perica
Perovic
je
dobar
covek.
[email protected]

===================

Kako bi išla ta f-ja za excel?

[ 3okc @ 26.03.2009. 14:27 ] @
Zapravo, ne treba ti ni f-ja, samo uradi AutoFilter >> Custom...
pa navedi kao kriterijum
Equals >> *@*
ili
Contains >> @
[ snake_master @ 26.03.2009. 15:57 ] @

Hvala ti, baš si mi olakšao posao. To je ono što mi je trebalo. Pet šest klikova mišom i dobijen gotov rezultat.