Automatically outline all email addresses in a given text by putting them in red-bold

[frenchbox]

Hi,

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

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

Thanx in advanc

 

[Don Guillett]

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