Change the color of each capital letter in a rich text memo field.

C

Clicky

Joined
Sep 10, 2013
Messages
1
Reaction score
0
I have a rich text memo field, I need have all the capital letters changed from black to red after an update on another field. I have been able to do this with the replace function for commas and periods but I cannot for the life of me figure out how to do this with capital letters. Any help would be much appreciated.

Code: 
Private Sub GrammarText_AfterUpdate()
If Len(Me.GrammarText) < 417 Then
Me.CorrectText = Me.GrammarText

Me.NoPeriods = Replace(Me.GrammarText, ".", " ")
Me.NoCommas = Replace(Me.GrammarText, ",", " ")

Me.CorrectText = Replace(Me.CorrectText, ".", "<font color=""red"">.</font>")
Me.CorrectText = Replace(Me.CorrectText, ",", "<font color=""red"">,</font>")

Else
MsgBox "Text is too large, please reduce the amount of characters"

End If
End Sub
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

How to type each letter of the alphabet automatically in a specific color in Word? 0
Only change font fomat in select words within a memo field 9
Enter new line in rich text memo field 4
font change facility in memo field 1
A2002 bug: Text box (memo-field): division of words with diacritics 4
Access How to record date/time when specific field is modified in Access 2007 0
Replace Text in a memo field 4
How do I replace just a part of text in a memo field by value in a 2

Top