Sometimes we need to determine whether characters inside a cell are bold or regular. And some cells can contain both bold and regular characters. Here is an example.
So today we are going to develop a macro to determine whether each and every character inside a cell is regular or bold. What it does is, it outputs each letter in immediate window and tells whether that each letter is bold or regular. Here below is the full code.
|
Dim i As Integer Dim Sentence_Length As Integer Sentence_Length = Len(Range("B2").Value) For i = 1 To Sentence_Length Debug.Print Range("B2").Characters(i, 1).Text If Range("B2").Characters(i, 1).Font.Bold = True Then Debug.Print "Bold" Else Debug.Print "Regular" End If Next i |
Below is the explanation of above code.
First we need to define our variables. Then below line of code measure the number of characters inside B2 cell.
|
Sentence_Length = Len(Range("B2").Value) |
And this for next loop, loop through all the letters in B2 cell.
|
For i = 1 To Sentence_Length Next i |
Below line prints the each character in immediate window. Please note that this program will consider spaces also as characters.
|
Debug.Print Range("B2").Characters(i, 1).Text |
This part of the code checks whether the character is bold or regular and print the result in immediate window.
|
If Range("B2").Characters(i, 1).Font.Bold = True Then Debug.Print "Bold" Else Debug.Print "Regular" End If |
Here is an image of immediate window after running the macro.
So this is just a very simple example. You can alter this code to suit with your requirements.