Excel vba code to use a RegEx search to make part of text inside a cell boldfaced

Excel vba code to use a RegEx search to make part of text inside a cell boldfaced

January 18, 2020

Stephen R. has posted visual basic code here, which you can use to run a regular expression search on a column in Excel to boldface some but not all of the text inside a cell.

 

In this example, we have a worksheet on which the Sedona principles have been listed in column A.  We want to make the first line in each cell, which lists the principle number, boldfaced.  

 

 Press ALT + F11 and in Visual Basic right click on the worksheet in the project list on the left and insert the below code in a new module. 

 

You'll need to update the code so it works on your worksheet and boldfaces the text you're searching for.  The Regex search goes on this line:

.Pattern = "Principle [0-9]{1}"

 

You list the rows to search here:

For RR = 2 To 10

 

Enter the number of the column you're searching in here [1 = A]:

Set oMatches = .Execute(Cells(RR, 1))

. . . and here:

Cells(RR, 1)

 

Press the play button in Visual Basic and your text will be boldfaced.

 

 

 

 

Sub xz()

Dim oMatches As Object, i As Long

Dim RR As Integer

For RR = 2 To 10

With CreateObject("VBScript.RegExp")

.Global = True

.IgnoreCase = True

.Pattern = "Principle [0-9]{1}"

Set oMatches = .Execute(Cells(RR, 1))

For i = 0 To oMatches.Count - 1

Cells(RR, 1).Characters(oMatches(i).FirstIndex + 1, 10).Font.Bold = True

Next i

End With

Next RR

End Sub
 

Please reload

Contact Me With Your Litigation Support Questions:

seankevinoshea@hotmail.com

  • Twitter Long Shadow

© 2015 by Sean O'Shea . Proudly created with Wix.com