Reply
 
LinkBack Thread Tools Search this Thread Display Modes
  #1   Report Post  
Posted to microsoft.public.excel.misc
frenchbox
 
Posts: n/a
Default Automatically outline all email addresses in a given text by putting them in red-bold


Hi,

I often treat raw texts and need to quickly visialize the paragraphs
containg email addresses. It takes me a great deal of working time to
manually click red-bold on each email address I see in a text and it is
not rare that I omit some addresses.

Is there a simple function (like replace all *@* with *@* red-bold) in
Excel or Word that I can use to automatize the process?

Thanx in advance


--
frenchbox
------------------------------------------------------------------------
frenchbox's Profile: http://www.excelforum.com/member.php...o&userid=29271
View this thread: http://www.excelforum.com/showthread...hreadid=496048

  #2   Report Post  
Posted to microsoft.public.excel.misc
Don Guillett
 
Posts: n/a
Default Automatically outline all email addresses in a given text by putting them in red-bold

Modified from the help index for FindNext

Sub findandbold()
With Range("k1:k500")
Set c = .Find("@", LookIn:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address
Do
With c.Font
.ColorIndex = 3
.Bold = True
End With
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address < firstAddress
End If
End With

End Sub

--
Don Guillett
SalesAid Software

"frenchbox" wrote
in message ...

Hi,

I often treat raw texts and need to quickly visialize the paragraphs
containg email addresses. It takes me a great deal of working time to
manually click red-bold on each email address I see in a text and it is
not rare that I omit some addresses.

Is there a simple function (like replace all *@* with *@* red-bold) in
Excel or Word that I can use to automatize the process?

Thanx in advance


--
frenchbox
------------------------------------------------------------------------
frenchbox's Profile:
http://www.excelforum.com/member.php...o&userid=29271
View this thread: http://www.excelforum.com/showthread...hreadid=496048



Reply
Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes

Posting Rules

Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are On


Similar Threads
Thread Thread Starter Forum Replies Last Post
copy/convert column email addresses Hyperlink "mailto:" excel97 daleman101 Excel Discussion (Misc queries) 3 November 3rd 05 02:21 PM
email addresses in excel bluepuppet Excel Discussion (Misc queries) 1 September 22nd 05 06:45 PM
How do I create a formula in excel to automatically copy text fro. ijgolding Excel Discussion (Misc queries) 1 January 31st 05 01:37 PM
How do I format email addresses as Text only? Dstess Excel Worksheet Functions 5 January 9th 05 07:44 PM
How do I set up a document to be sent as email automatically Matt Besherse Setting up and Configuration of Excel 1 December 2nd 04 03:19 AM


All times are GMT +1. The time now is 06:20 AM.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Copyright ©2004-2024 ExcelBanter.
The comments are property of their posters.
 

About Us

"It's about Microsoft Excel"