Search keyword Bold function code

Keywords | functions | bold

A function that uses regular expressions to highlight words that are queried in a string, streamlined and practical!

Public Function Boldword (Strcontent,word)
If word= "" Then
Boldword = strcontent
Exit Function
End IF
Dim objregexp
Set objregexp=new REGEXP
Objregexp.ignorecase =true
Objregexp.global=true

Objregexp.pattern= "(& Word &)"
Strcontent=objregexp.replace (strcontent, "<font color=" "#FF0000" "><b>$1</b></font>")

Set objregexp=nothing
Boldword=strcontent
End Function